Published: July 16, 2012
Selects all the shapes in the specified Shapes collection.
Version Added: Excel 2007
A variable that represents a Shapes object.
This example selects all the shapes on myDocument and creates a ShapeRange collection containing all the shapes.
Set myDocument = Worksheets(1)
Set sr = Selection.ShapeRange