ShapeRange.GroupItems (PowerPoint)

Returns a GroupShapes object that represents the individual shapes in the specified group. Use the Item method of the GroupShapes object to return a single shape from the group.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActivePresentation.Slides(1).Shapes(1).Ungroup.GroupItems