Selection.ShapeRange (PowerPoint)

Returns a ShapeRange object that represents all the slide objects that have been selected on the specified slide.

The range returned can contain the drawings, shapes, OLE objects, pictures, text objects, titles, headers, footers, slide number placeholder, and date and time objects on a slide. You can return a shape range from a selection when the presentation is in normal, slide, or any master view.

Dim sreShapeRange As ShapeRange
Set sreShapeRange = ActiveWindow.Selection.ShapeRange