Group 方法

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

expression  必选。该表达式返回一个 ShapeRange 对象。

说明

由于一组形状作为单个形状处理，所以创建和分解形状组将改变 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