Shape.Ungroup (Excel)

Ungroups any grouped shapes in the specified shape or range of shapes. Disassembles pictures and OLE objects within the specified shape or range of 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.

Dim shp As Shape: Set shp = 
Dim sreUngroup As ShapeRange
Set sreUngroup = shp.Ungroup()