Compartilhar via


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.