Método ShapeRange.Ungroup (Excel)
Desagrupa quaisquer formas agrupadas na forma especificada ou intervalo de formas. Desagrupa imagens e objetos OLE dentro da forma ou do intervalo de formas especificado.
Sintaxe
expressão. Desagrupar
Expressão Uma variável que representa um objeto ShapeRange .
Valor de retorno
Um objeto ShapeRange que representa as formas desagrupadas.
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 o número de índice de 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 = Worksheets(1)
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 = Worksheets(1)
For Each s In myDocument.Shapes
If s.Type = msoGroup Then s.Ungroup
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.