Método ShapeRange.Group (Word)

Agrupa as formas no intervalo especificado e retorna as formas agrupadas como um único objeto Shape.

Sintaxe

expressão. Grupo

expressão Obrigatório. Uma variável que representa um objeto ShapeRange.

Comentários

Como um grupo de formas é tratado como uma única forma, agrupar e desagrupar formas altera o número de itens na coleção Shapes e altera os números de índice dos itens que vêm após os itens afetados na coleção.

Exemplo

Este exemplo adiciona duas formas a myDocument, agrupa as duas novas formas, define o preenchimento para o grupo, gira o grupo e envia o grupo para trás do nível de desenho.

Set myDocument = ActiveDocument 
With myDocument.Shapes 
 .AddShape(msoShapeCan, 50, 10, 100, 200).Name = "shpOne" 
 .AddShape(msoShapeCube, 150, 250, 100, 200).Name = "shpTwo" 
 With .Range(Array("shpOne", "shpTwo")).Group 
 .Fill.PresetTextured msoTextureBlueTissuePaper 
 .Rotation = 45 
 .ZOrder msoSendToBack 
 End With 
End With

Confira também

Objeto da coleção ShapeRange

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.