SelectAll Method Example

This example selects all the shapes on myDocument and creates a ShapeRange object containing all the shapes.

Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Set sr = Selection.ShapeRange