So kann man mehrere Shapes auswählen: Mit Shape-Namen
ActiveSheet.Shapes.Range(Array("Shp1", "Shp2")).Select
oder mit Shape-Nummern
ActiveSheet.Shapes.Range(Array(1, 2)).Select
die Auswahl lässt sich anschliessend gruppieren.
Das Array lässt sich noch allgemein formulieren:
Dim arShapes() As Variant
Dim objRange As Object
arShapes = Array("Shp1", "Shp2")
Set objRange = ActiveSheet.Shapes.Range(arShapes)
objRange.Select
Was ich nicht schaffe, ist, das Array programmgesteuert zu füllen, etwa
arShapes(1)="Shp1"
(An Stelle des Strings "Shp1" sollte vermutlich ein anderer Typ angewendet werden, aber welcher ?)
Das wäre aber notwendig, damit ich mehrere von VBA erzeugte Shapes auswählen und Gruppieren kann.
Selection.ShapeRange.Group.Select
Kann jemand dabei helfen oder gibts für ShapeRange eine bessere Lösung ?
Teodoro