Selection.HasChildShapeRange (PowerPoint)

True if the selection contains child shapes.


Dim booHasChildShapeRange As Boolean
booHasChildShapeRange = ActiveWindow.Selection.HasChildShapeRange