Selection.ShapeRange property (Publisher)

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.

Syntax

expression.ShapeRange

expression A variable that represents a Selection object.

Return value

ShapeRange

Example

The following example sets the fill pattern for all the shapes in the selection. This example assumes that 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 that 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.