テキストボックスをグループ化するＶＢＡ

質問

エクセル上に並んだテキストボックスを、ボタンを押すことで、任意のテキストボックスをグループ化させたい。また、別のボタンでグループ化の解除が出来るようなＶＢＡをおしえてください。

テキストボックスは、Sheet１～３まであって、ボタンもそれぞれに配置してあり、
どこのSheetのボタンを押しても、各シート、それぞれに任意の設定したテキストボックスがグループ化できるようにしたい
※各シート、グループ化するテキストボックスはおなじでなない・・・

よろしくお願いします。

回答No.1

ARC

Private Sub CommandButton1_Click()
　'グループ化
　Dim myDocument As Worksheet
　Set myDocument = Worksheets("Sheet1")
　myDocument.Shapes.Range(Array("Text Box 1", "Text Box 3")).Group
End Sub

Private Sub CommandButton2_Click()
　'グループ解除
　Dim myDocument As Worksheet
　Set myDocument = Worksheets("Sheet1")
　myDocument.Shapes("Group 1").Ungroup
End Sub

ヘルプ「ShapeRange コレクション オブジェクト」のサンプルの変形です。
"Text Box 1"などの名前に関しては、あらかじめイミディエイトペインで
? Worksheets(1).shapes(1).name
などとして調べておけば良いでしょう。

グループ解除については、ここでは単純化していますが実際には、も少しややこしいです。
というのも、グループ化を行うごとにShapeオブジェクトが新規に生成され、同時に名前(Group X)が新しく自動で生成されるからです。

この問題に関しては、グループ化を行う前と後で、Shapesコレクションの中身を比較し、新たに増えたオブジェクトの名前を記録しておけば解決できると思います。

不明点とかあれば、補足してください。

お礼

ＡＲＣさん！いつも回答ありがとうございます。
早速コードを書いていますが、まだ動いてくれません。でも何とか動きそうなのでがんばってみます。
また何かありましたら、よろしくお願いします。ありがとうございました。