GroupShapes 集合对象

Shapes (Shape) GroupShapes (Shape)

该对象代表组合图形中的单个图形。每个图形都由一个 Shape 对象代表。使用本对象的 Item 方法，可以处理组合图形中的单个图形，而不必取消组合。

使用 Groupshapes 集合

用 GroupItems 属性可以返回 GroupShapes 集合。用 GroupItems (index) 可以返回 GroupShapes 集合中的单个图形，其中 index 是组合图形中单个图形的序号。下列示例向活动文档添加三个三角形，并加以组合，为整个组合设置一个颜色，然后只更改第二个三角形的颜色。

With ActiveDocument.Shapes
    .AddShape(msoShapeIsoscelesTriangle, _
        10, 10, 100, 100).Name = "shpOne"
    .AddShape(msoShapeIsoscelesTriangle, _
        150, 10, 100, 100).Name = "shpTwo"
    .AddShape(msoShapeIsoscelesTriangle, _
        300, 10, 100, 100).Name = "shpThree"
    With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
        .Fill.PresetTextured msoTextureBlueTissuePaper
        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble
    End With
End With