在指定的 CanvasShapes、DiagramNodeChildren、DiagramNodes 或 Shapes 集合中选取所有图形。
expression.SelectAll
expression 必需。该表达式返回“应用于”列表中的对象之一。
本示例选取 myDocument
中的所有图形,并创建包含所有这些图形的 ShapeRange 集合。
Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Set sr = Selection.ShapeRange