通过

ShapeRange.Group 方法 (PowerPoint)

  • 项目

将指定区域中的形状形成一组。 以单个 Shape 对象返回分组后的形状。

语法

表达式。组

表达 一个代表 ShapeRange 对象的变量。

返回值

Shape

说明

由于一组形状作为单个形状处理，所以创建和分解形状组将更改 Shapes 集合中的项目数，并更改集合中受影响的项目之后的项目索引号。

示例

本示例将两个形状添加到 myDocument，将两个新形状组合在一起，设置该组的填充，旋转该组，并将该组发送到绘图层的背面。

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes

    .AddShape(msoShapeCan, 50, 10, 100, 200).Name = "shpOne"

    .AddShape(msoShapeCube, 150, 250, 100, 200).Name = "shpTwo"

    With .Range(Array("shpOne", "shpTwo")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .Rotation = 45

        .ZOrder msoSendToBack

    End With

End With

另请参阅

绘图对象

支持和反馈

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