ShapeRange.Ungroup (Word)

Desagrupa quaisquer formas agrupadas no intervalo de formas especificado, desmonta figuras e objetos OLE dentro da forma especificada ou do intervalo de formas 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 as formas desagrupadas na coleção.

Dim sre As ShapeRange: Set sre =  
Dim sreUngroup As ShapeRange
Set sreUngroup = sre.Ungroup()