ShapeRange.Ungroup (PowerPoint)

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. 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.

Dim sreUngroup As ShapeRange
Set sreUngroup = ActivePresentation.Slides(1).Shapes(1).Ungroup.Ungroup()