EXECLマクロでshapeがグルーフ゜化されてるかどうかを調べる方法は？

全shape中のテキストを処理したいので一旦図形のグループ化を解除したいのですが、ヘルプに出ている方法で全部をselectしungroupしようとするとエラーになってしまいます。
そこで、一つづつungroupしようと思います。グループ化されてないものにungroupしようとするとエラーとなるので、グループ化されているかどうかをチェックしたいのですが、方法が見つかりません。どなたかご存知でしょうか？

No.2 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/03/24 14:20

sp が現在調べているShape オブジェクトだとして

If sp.Type = msoGroup Then
で調べられると思います。

この回答へのお礼

有難う御座います。
お蔭様でうまくゆきました。

お礼日時：2006/03/24 19:54

No.1 回答者： noname#123709 回答日時： 2006/03/24 13:05

グループ化のチェックではないですけど・・・。

他に一切問題がないとして、下記のようにすると大丈夫です。
Sub test()
On Error Resume Next
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Ungroup.Select
End Sub

この回答へのお礼

有難う御座います。selectallというものを始めて知りました。
この方法だと何回ungroupを行えば細部のグループ化されてる部分まで解除されるか判らないので、簡単ではありますが、正確ではありませんね。

お礼日時：2006/03/24 19:56