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.

Como um grupo de formas é tratado como um único objeto, o agrupamento e desagrupamento de 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.

Dim sreUngroup As ShapeRange
Set sreUngroup = ActiveChart.OLEObjects.ShapeRange.Ungroup()