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.