选择指定 Shapes 集合中的所有形状。
表达式。SelectAll
expression:一个表示 Shapes 对象的变量。
本示例选择 myDocument 上的所有形状,然后创建包含所有形状的 ShapeRange 集合。
Set myDocument = Worksheets(1)
myDocument.Shapes.SelectAll
Set sr = Selection.ShapeRange
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。