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

另请参阅

Shapes 集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。