ShapeRange Property 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)