ShapeRange.Group (Excel)

Agrupa as formas no intervalo especificado.

Em função do grupo de formas ser tratado como uma forma única, o agrupamento e o desagrupamento das formas altera o número de itens da coleção Shapes e altera os números indexados de itens que vêm após os itens afetados na coleção. O objeto de intervalo deve ser uma única célula no intervalo de dados do campo da tabela dinâmica. Se você tentar aplicar este método a mais de uma célula, ele falhará (sem exibir uma mensagem de erro).

Dim shpGroup As Shape
Set shpGroup = ActiveChart.OLEObjects.ShapeRange.Group()