返回一个 GroupShapes 对象,该对象代表指定图形组中的单个图形。使用 GroupShapes 对象的 Item 方法可从图形组中返回单个图形。应用于表示成组图形的 Shape 或 ShapeRange 对象。只读。
本示例首先向 myDocument
添加三个三角形并加以组合,这是组合的整体颜色,然后单独改变第二个三角形的颜色。
Set myDocument = ActiveDocument
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