GroupItems 属性

返回一个 GroupShapes 对象，该对象代表指定的成组图形中的各单独图形。可用 GroupShapes 对象的 Item 方法返回图形组中的单个图形。应用于代表成组图形的 Shape 对象或 ShapeRange 对象。只读。

示例

本示例向 myDocument 中添加了三个三角形，并组合这些三角形，为整个图形组设置颜色，然后又独立地更改第二个三角形的颜色。

Set myDocument = Worksheets(1)
With myDocument.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