Objeto GroupShapes (Publisher)
Representa as formas individuais dentro de uma forma agrupada. Cada forma é representada por um objeto Shape. Uso do Item método com esse objeto, você pode trabalhar com formas individuais dentro de um grupo sem precisar desagrupá-los.
Comentários
Use a propriedade Shape.GroupItems para retornar uma coleção GroupShapes . Use GroupItems (index), em que o índice é o número da forma individual dentro da forma agrupada, para retornar uma única forma da coleção GroupShapes .
Exemplo
O exemplo a seguir adiciona três triângulos ao documento ativo, agrupa-os, define uma cor para todo o grupo e altera a cor apenas do terceiro triângulo.
Sub WorkWithGroupShapes()
With ActiveDocument.Pages.Add(Count:=1, After:=1).Shapes
.AddShape(msoShapeIsoscelesTriangle, _
50, 50, 100, 100).Name = "shpOne"
.AddShape(msoShapeIsoscelesTriangle, _
200, 50, 100, 100).Name = "shpTwo"
.AddShape(msoShapeIsoscelesTriangle, _
350, 50, 100, 100).Name = "shpThree"
With .Range(Array("shpOne", "shpTwo", "shpThree")).Group
.Fill.PresetTextured PresetTexture:=msoTextureBlueTissuePaper
.GroupItems(3).Fill.PresetTextured _
PresetTexture:=msoTextureGreenMarble
End With
End With
End Sub
Métodos
Propriedades
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.