Shape.Ungroup method (Word)
Ungroups any grouped shapes in the specified shape.
expression.Ungroup
expression Required. A variable that represents a Shape object.
ShapeRange
This method sisassembles pictures and OLE objects within the specified shapeand returns the ungrouped shapes as a single ShapeRange object.
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.
This example ungroups any grouped shapes and disassembles any pictures or OLE objects on myDocument.
Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
s.Ungroup
Next
This example ungroups any grouped shapes on myDocument without disassembling pictures or OLE objects on the document.
Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
If s.Type = msoGroup Then s.Ungroup
Next
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.