ShapeRange.Regroup (Excel)

Reagrupa o grupo que o intervalo de formas especificado pertencia anteriormente. Retorna as formas reagrupadas como um único objeto Shape .

O método Regroup restaura apenas o grupo da primeira forma agrupada anteriormente encontrada na coleção ShapeRange especificada. Portanto, se o intervalo de formas especificado contiver formas que pertenciam anteriormente a grupos diferentes, somente um dos grupos será restaurado. Observe que, como um grupo de formas é tratado como uma única forma, 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 shpRegroup As Shape
Set shpRegroup = ActiveChart.OLEObjects.ShapeRange.Regroup()