ShapeRange Property
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.
Remarks
You can return a shape range from a selection when the presentation is in normal, slide, or any master view.
Example
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)