Returns a ShapeRange collection that represents all the Shape objects in the specified range or selection. The shape range can contain drawings, shapes, pictures, OLE objects, ActiveX controls, text objects, and callouts. Read-only.
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