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
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.