Compartilhar via


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.