Shape.GroupItems (Word)

Retorna um objeto GroupShapes que representa as formas individuais no grupo especificado. Somente leitura.

Esta propriedade se aplica ao objeto Shape que representa as formas agrupadas. Use o método Item do objeto GroupShapes para retornar uma única forma do grupo.

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