Returns a ShapeRange object that represents all the slide objects that have been selected on the specified slide. This range can contain the drawings, shapes, OLE objects, pictures, text objects, titles, headers, footers, slide number placeholder, and date and time objects on a slide. Read-only.
You can return a shape range from a selection when the presentation is in normal, slide, or any master view.
This example sets the fill foreground color for all the selected shapes in window one.
Windows(1).Selection.ShapeRange.Fill _ .ForeColor.RGB = RGB(255, 0, 255)