ShapeRange.ParentGroup (PowerPoint)

Returns a Shape object that represents the common parent shape of a child shape or a range of child shapes.

Dim shpParentGroup As Shape
Set shpParentGroup = ActivePresentation.Slides(1).Shapes(1).Ungroup.ParentGroup