ShapeRange.Group (PowerPoint)

Agrupa las formas del intervalo especificado. Devuelve las formas agrupadas como un único objeto Shape .

Debido a que un grupo de formas se trata como una única forma, al agrupar y desagrupar formas cambia el número de elementos de la colección Shapes y cambia los números de índice de los elementos que siguen a los elementos afectados de la colección.

Dim shpGroup As Shape
Set shpGroup = ActivePresentation.Slides(1).Shapes(1).Ungroup.Group()