In diesem Beispiel werden in myDocument alle Formengruppen aufgehoben und alle Bilder oder OLE-Objekte zerlegt.
Set myDocument = Worksheets(1) For Each s In myDocument.Shapes s.Ungroup Next
In diesem Beispiel werden in myDocument alle Formengruppen aufgehoben, ohne Bilder oder OLE-Objekte zu zerlegen.
Set myDocument = Worksheets(1) For Each s In myDocument.Shapes If s.Type = msoGroup Then s.Ungroup Next