Shapes.Range 方法 (Word)
返回代表某个范围中的形状的 ShapeRange 对象。
语法
表达式。范围 (索引)
expression 是必需的。 一个代表 Shapes 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Index | 必需 | Variant | 指定要包含在指定范围中的形状。 可以是指定 Shapes 集合、 指定形状名称的字符串或一个包含整数或字符串的数组内的形状的索引号的整数。 |
返回值
ShapeRange
备注
Shape 对象始终显示锚定到的范围位于同一页上。
注意
[!注释] 与 形状 对象可以执行的大多数操作还可以执行与一个 ShapeRange 对象，该对象包含一个形状。 某些操作，一个 ShapeRange 对象，该对象包含多个形状，在执行时产生错误。
示例
以下示例将活动文档中第一个形状的填充前景色设置为紫色。
Sub ShRange()
With ActiveDocument.Shapes.Range(1).Fill
.ForeColor.RGB = RGB(255, 0, 255)
.Visible = msoTrue
End With
End Sub
以下示例为活动文档中变量形状应用阴影。
Sub ShpRange2(strShpName As String)
ActiveDocument.Shapes.Range(strShpName).Shadow.Type = msoShadow6
End Sub
要调用前一个子程序，请在标准代码模块中输入以下代码。
Sub CallShpRange2()
Dim shpArrow As Shape
Dim strName As String
Set shpArrow = ActiveDocument.Shapes.AddShape(Type:=msoShapeLeftArrow, _
Left:=200, Top:=400, Width:=50, Height:=75)
shpArrow.Name = "myShape"
strName = shpArrow.Name
ShpRange2 strShpName:=strName
End Sub
以下示例选择活动文档的第一和第三个形状。
Sub SelectShapeRange()
ActiveDocument.Shapes.Range(Array(1, 3)).Select
End Sub
以下示例选择并删除活动文档的第一个形状中的形状。 本示例假定第一个形状是画布形状。
Sub CanvasShapeRange()
Dim rngCanvasShapes As Range
Set rngCanvasShapes = ActiveDocument.Shapes(1).CanvasItems.Range(1)
rngCanvasShapes.Select
rngCanvasShapes.Delete
End Sub
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。