Método ShapeRange.Ungroup (PowerPoint)

Desagrupa quaisquer formas agrupadas na forma especificada ou intervalo de formas. Desmonta figuras e objetos OLE dentro da forma especificada ou o intervalo de formas. Retorna as formas desagrupadas como um único objeto ShapeRange.

Sintaxe

expressão. Desagrupar

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

Valor de retorno

ShapeRange

Comentários

Como um grupo de formas é tratado como um único objeto, 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 desagrupa qualquer forma agrupada e desmonta qualquer figura ou objetos OLE em myDocument.

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes

    s.Ungroup

Next

Este exemplo desagrupa quaisquer formas agrupadas em myDocument sem separar as imagens ou objetos OLE no slide.

Set myDocument = ActivePresentation.Slides(1)

For Each s In myDocument.Shapes

    If s.Type = msoGroup Then s.Ungroup

Next

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.