EXCEL VBA

質問

EXCELの指定した範囲（例えばrange("A1:C5"))にある
オートシェイプ
図
テキストボックス
を選択しグループ化するためには
どのようにコードを記述すればいいでしょうか

回答No.1

papayuka · ベストアンサー

一応下記で A1:C5 に左上が入っているものをグループ化します。

Sub Test1()
Dim sh As Shape

　ActiveCell.Activate
　For Each sh In ActiveSheet.Shapes
　　If Not Application.Intersect(sh.TopLeftCell, ActiveSheet.Range("A1:C5")) Is Nothing Then
　　　 sh.Select False
　　End If
　Next sh
　If TypeName(Selection) = "DrawingObjects" Then Selection.ShapeRange.Group
End Sub

お礼

ありがとうございました。
If Not Application.Intersect(sh.TopLeftCell, ActiveSheet.Range("A1:C5")) Is Nothing Then
　　　 sh.Select False
の意味がよく分からなかったのですが、やりたいことはできました。
ありがとうございました。