Método ShapeRange.Group (PowerPoint)

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

Sintaxe

expressão. Grupo

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

Valor de retorno

Forma

Comentários

Em função do grupo de formas ser tratado como uma forma única, o agrupamento e o desagrupamento das formas altera o número de itens da coleção Shapes e altera os números indexados de itens que vêm após os itens afetados na coleção.

Exemplo

Este exemplo adiciona duas formas ao myDocument, agrupa as duas novas formas, define o preenchimento para o grupo, gira o grupo e envia o grupo para a parte de trás da camada de desenho.

Set myDocument = ActivePresentation.Slides(1)

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