ShapeRange Property Example

The following example sets the fill foreground color to purple for all the shapes in the active document.

ActiveDocument.Content.ShapeRange.Fill.ForeColor.RGB = _
    RGB(255, 0, 255)

The following example applies shadow formatting to all the shapes in the selection.

Selection.ShapeRange.Shadow.Type = msoShadow6