Selection.HasChildShapeRange (PowerPoint)

True if the selection contains child shapes. 


Dim booHasChildShapeRange As Boolean
booHasChildShapeRange = ActiveWindow.Selection.HasChildShapeRange