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