Selection.ChildShapeRange (PowerPoint)

Returns a ShapeRange object that represents the child shapes of a selection.

Dim sreChildShapeRange As ShapeRange
Set sreChildShapeRange = ActiveWindow.Selection.ChildShapeRange