ShapeRange.Ungroup メソッド (Excel)

指定した図形または図形範囲の図形のグループ化を解除します。 また、指定された図形または図形範囲内の図や OLE オブジェクトをすべて分解します。

構文

式。解除

式ShapeRange オブジェクトを表す変数。

戻り値

グループ解除後の図形を表す ShapeRange オブジェクト。

注釈

図形のグループは 1 つのオブジェクトとして扱われるため、図形をグループ化およびグループ化解除すると、 Shapes コレクション内の項目の数が変更され、コレクション内の影響を受ける項目の後にある項目のインデックス番号が変更されます。

例

次の使用例は、myDocument のすべてグループ化された図形のグループ化を解除し、すべての図または OLE オブジェクトを分解します。

Set myDocument = Worksheets(1) 
For Each s In myDocument.Shapes 
 s.Ungroup 
Next

次の使用例は、myDocument のグループ化された図形のグループを解除しますが、文書の図または OLE オブジェクトは分解しません。

Set myDocument = Worksheets(1) 
For Each s In myDocument.Shapes 
 If s.Type = msoGroup Then s.Ungroup

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。