Método Shape.Ungroup (Word)
Desagrupa todas as formas agrupadas na forma especificada.
Sintaxe
expressão. Desagrupar
expressão Obrigatório. Uma variável que representa um objeto Shape.
Valor de retorno
ShapeRange
Comentários
Este método desmonta figuras e objetos OLE dentro da forma especificada e retorna as formas desagrupadas como um único objeto ShapeRange.
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 = ActiveDocument
For Each s In myDocument.Shapes
s.Ungroup
Next
Este exemplo desagrupa qualquer forma agrupada em myDocument sem desmontar figuras ou objetos OLE no documento.
Set myDocument = ActiveDocument
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.