Selects all the shapes in the specified CanvasShapes, DiagramNodeChildren, DiagramNodes, or Shapes collection.
expression.SelectAll
expression Required. An expression that returns one of the objects in the Applies To list.
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