Método ShapeRange.Group (Publisher)

Agrupa as formas no intervalo de formas especificado. Retorna as formas agrupadas como um só objeto Shape.

Sintaxe

expressão. Grupo

Expressão Uma variável que representa um objeto ShapeRange .

Valor de retorno

Forma

Comentários

O intervalo especificado deve conter mais de uma forma, pois, do contrário, ocorrerá um erro.

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 à primeira página da publicação ativa, agrupa as mesmas, define o preenchimento do grupo, gira o grupo e o envia para trás da camada de desenho.

With ActiveDocument.Pages(1).Shapes 
 
 ' Add two shapes to the page. 
 .AddShape(Type:=msoShapeCan, _ 
 Left:=50, Top:=10, Width:=100, Height:=200).Name = "shpOne" 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=150, Top:=250, Width:=100, Height:=200).Name = "shpTwo" 
 
 ' Group the shapes and change the formatting for the whole group. 
 With .Range(Index:=Array("shpOne", "shpTwo")).Group 
 .Fill.PresetTextured PresetTexture:=msoTextureBlueTissuePaper 
 .Rotation = 45 
 .ZOrder ZOrderCmd:=msoSendToBack 
 End With 
 
End With 

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.