| ET 开发人员参考 |
| Shapes.Range 属性 |
语法
表达式.Range(Index)
表达式 一个代表 Shapes 对象的变量。
参数
| 名称 | 必选/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Index | 必选 | Variant | 包含在该区域中的各单个形状。可以是指定形状索引号的整数、指定形状名称的字符串，也可以是包含整数或字符串的数组。 |
说明
虽然使用 Range 属性可返回任意数量的形状，但如果要返回集合中单个成员时，用 Item 方法更加简单。例如，Shapes(1) 比 Shapes.Range(1) 简单。
若要为 Index 指定一个整数或字符串数组，可以使用 Array 函数。例如，以下指令返回用名称指定的两个形状。
Dim arShapes() As Variant Dim
objRange As Object arShapes = Array("Oval
4", "Rectangle 5") Set
objRange =
ActiveSheet.Shapes.Range(arShapes)
在 ET 中，不能用此属性返回包含工作表上的所有 Shape 对象的 ShapeRange 对象。如果要达到该目的，可用下列代码：
Worksheets(1).Shapes.SelectAll ' select all shapes
set sr = Selection.ShapeRange ' create ShapeRange