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.
expression.ShapeRange
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example sets the fill pattern for all the shapes in the selection. This example assumes one or more shapes are selected in the active publication.
Sub ChangeFillForShapeRange()
Selection.ShapeRange.Fill.Patterned Pattern:=msoPattern20Percent
End Sub
The following example applies shadow and fill formatting to all the shapes in the selection. This example assumes one or more shapes are selected in the active publication.
Sub SetShadowForSelectedShapes()
With Selection.ShapeRange
.Shadow.Type = msoShadow6
.Fill.Patterned Pattern:=msoPatternDottedDiamond
End With
End Sub