Ungroup Method (Shape or ShapeRange Object) Example
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
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
Next