エクセル VBA ： テキストボックスのグループ化

質問

エクセル　VBAにてテキストボックスをグループ化したいのです。

マクロを記録すると、

ActiveSheet.Shapes.Range(Array("Oval 82", "Text Box 83")).Select
Selection.ShapeRange.Group.Select

となります。

"Text Box 83"のように常に名前が固定されているわけではないので、セルのＡ１からＣ１０にある図形を選択してグループ化するようにしたいのです。

ご存知の方、アドバイス願います。

回答No.1

popesyu · ベストアンサー

このまま使えますが、すでにグループ化されている場合のエラー処理はしてませんので、その辺りは自力で。
---
'ワークシートに併せて修正
Set mydocument = Worksheets(1)
'おまじない
mydocument.Range("a1").Select
'ループ処理
For Each c In mydocument.Shapes
'Shapeのアドレス取得
x = c.BottomRightCell.Column
y = c.BottomRightCell.Row
'範囲内かどうかを判別
If x <= 3 And y <= 10 Then
c.Select (False)'複数選択
End If
Next c
Selection.Group

お礼

回答ありがとう御座います。

ばっちりでした。