Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4276 / 76734

←次へ　｜　前へ→


	【78083】複数図を選択して、グループ化するマクロの作成

urupis - 16/4/1(金) 17:50 -


	引用なし

	パスワード

こんにちは。初めまして。
urupisと申します。

複数図を選択して、グループ化するマクロを作成の困っているので
ご指南いただきたいと思い投稿いたしました。

■実装したい内容
マニュアル作成にあたり、
スクリーンキャプチャした図に対して赤枠の図などで囲ったりします。
選択したすべての図の上に図形などが存在した場合は、
それを自動的にグループ化をしたいです。

以下のように図の上に図が存在するかを特定することが
私の調べた範囲ではできなかったので、
選択範囲を指定して、その枠内に図形がある場合は名前を取得するところまではできたのですが、
このあとどうグループ化をしていけばわかりません。
実装したい内容が実現できるマクロを教えていただけますでしょうか。
ご指南のほどよろしくお願いします。

Sub 選択されているセル範囲内の図形をグループ化する()

　Dim shp As Shape
　Dim rng_shp As Range
　 Dim shapeName() As String
　 Dim i As Long

　 If TypeName(Selection) <> "Range" Then Exit Sub
　 i = 0
　 For Each shp In ActiveSheet.Shapes
　
　　　　 ''図形の配置されているセル範囲をオブジェクト変数にセット
　　　　Set rng_shp = Range(shp.TopLeftCell, shp.BottomRightCell)
　　　　 ''図形の配置されているセル範囲と
　　　　''選択されているセル範囲が重なっているときに図形の名前を取得
　　　　If Not (Intersect(rng_shp, Selection) Is Nothing) Then
　　　　　　ReDim Preserve shapeName(i)
　　　　　　shapeName(i) = shp.Name
　　　　　　i = i + 1
　　　　End If
　 Next

　 'Selection.ShapeRange.Group.Select
End Sub

5 hits

▼

【78083】複数図を選択して、グループ化するマクロの作成 urupis 16/4/1(金) 17:50