| |
こんにちは。初めまして。
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
