ShapeRange 对象 (PowerPoint)

代表一个形状范围,即某个文档中的一组形状。 形状范围可以只包含文档中的一个形状,也可以包含该文档中的所有形状。

备注

可以包含所需的任何形状(从文档上的所有形状或所选内容中的所有形状中选择)来构造形状区域。 例如,可以构造一个 ShapeRange 集合,其中包含文档上的前三个形状、 所有选取的形状或所有任意多边形。

有关如何使用单个形状或一次处理多个形状的概述,请参阅 使用形状 (绘图对象)

以下示例说明如何执行下列操作:

  • 返回按名称或索引号指定的一组形状。

  • 返回文档中全部或部分选定的形状。

示例

使用 Shapes.Range (索引) ,其中 index 是形状的名称或索引号,或者包含形状名称或索引号的数组,可返回一个 ShapeRange 集合,该集合代表文档中的一组形状。 使用 Array 函数构造名称或索引号数组。 下例设置 myDocument 上形状一和三的填充图案。

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes.Range(Array(1, 3)).Fill _

    .Patterned msoPatternHorizontalBrick

下例设置 myDocument 上名为“Oval 4”和“Rectangle 5”的形状的填充图案。

Set myDocument = ActivePresentation.Slides(1)

Set myRange = myDocument.Shapes _

    .Range(Array("Oval 4", "Rectangle 5"))

myRange.Fill.Patterned msoPatternHorizontalBrick

虽然可以使用 Range 方法返回任意数量的形状或幻灯片,但如果只想返回集合的单个成员,则使用 Item 方法会更简单。 例如, Shapes(1)是比 Shapes.Range(1)更简单。

使用 Selection 对象的 ShapeRange 属性可返回选定内容中的所有形状。 下面的示例设置前景填充色,假定一个,窗口中的选定内容中的所有形状的选定内容中的至少一个形状。

Windows(1).Selection.ShapeRange.Fill.ForeColor _

    .RGB = RGB(255, 0, 255)

使用 Selection.ShapeRange (索引) ,其中 index 是形状名称或索引号,以返回所选内容中的单个形状。 下面的示例填充将前景色的设置为第二个形状中选定形状的集合中第一个窗口,假定至少有两个形状在所选内容。

Windows(1).Selection.ShapeRange(2).Fill.ForeColor _

    .RGB = RGB(255, 0, 255)

方法

属性

另请参阅

支持和反馈

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