Shapes.SelectAll Method (Excel)
Office 2013
Published: July 16, 2012
Selects all the shapes in the specified Shapes collection.
This example selects all the shapes on myDocument and creates a ShapeRange collection containing all the shapes.
Set myDocument = Worksheets(1) myDocument.Shapes.SelectAll
Set sr = Selection.ShapeRange