Shape グループ解除メソッド (Excel)Shape.Ungroup method (Excel)

指定した図形または図形範囲の図形のグループ化を解除します。Ungroups any grouped shapes in the specified shape or range of shapes. また、指定された図形または図形範囲内の図や OLE オブジェクトをすべて分解します。Disassembles pictures and OLE objects within the specified shape or range of shapes.

構文Syntax

グループ解除expression.Ungroup

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

戻り値Return value

グループ解除された図形を表す**ShapeRange** オブジェクトを取得します。A ShapeRange object that represents the ungrouped shapes.

解説Remarks

図形のグループは1つのオブジェクトとして扱われるため、図形をグループ化したり、グループを解除したりすると、 shapes コレクション内の項目数が変わり、コレクション内の影響を受ける項目の後にある項目のインデックス番号が変更されます。Because a group of shapes is treated as a single object, grouping and ungrouping shapes changes the number of items in the Shapes collection and changes the index numbers of items that come after the affected items in the collection.

Example

次の使用例は、myDocument のすべてグループ化された図形のグループ化を解除し、すべての図または OLE オブジェクトを分解します。This example ungroups any grouped shapes and disassembles any pictures or OLE objects on myDocument.

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

次の使用例は、myDocument のグループ化された図形のグループを解除しますが、文書の図または OLE オブジェクトは分解しません。This example ungroups any grouped shapes on myDocument without disassembling pictures or OLE objects on the document.

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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.