Group 方法

组合指定区域中的图形。以单一的 Shape 对象形式返回组合图形。

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

说明

因为组合图形被视为单一图形，所以组合图形或取消图形组合将改变 Shapes 集合中的项目数，进而影响集合中各项目的索引序号。

示例

本示例实现的功能是：将两个图形添至 myDocument，并组合这两个新图形，设置图形组合的填充格式，旋转此组合并将其置于绘图层的下面。

Set myDocument = ActiveDocument
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