Selection.Type (PowerPoint)

Represents the type of objects in a selection. Possible return values are ppSelectionNone - None, ppSelectionShapes - Shapes, ppSelectionSlides - Slides, ppSelectionText - Text.

The value of the Type property can be one of these PpSelectionType constants.

Dim pstType As PpSelectionType
pstType = ActiveWindow.Selection.Type