Alle Zeichnungsobjekte markieren / gruppieren
30.05.2006 15:52:18
Jorainbo
ich zeichne ab und zu was in Excel, ist für meine Zwecke ausreichend und praktisch. Zum Schluß möchte ich immer ALLE Zeichnungsobjekte gruppieren.
Hab mal folgendes versucht:
Sub Zg_gruppieren()
Dim i, arr
For Each i In ActiveSheet.Shapes
arr = arr & """" & i.Name & """" & ", "
Next i
arr = Left(arr, Len(arr) - 2)
ActiveSheet.Shapes.Range(Array(arr)).Select
Selection.ShapeRange.Group.Select
End Sub
arr ist dann z.B.
"Rectangle 1", "Rectangle 2"
wird aber als Array(arr)nicht erkannt. Hat jemand eine bessere Lösung?
Danke für jeden Tip
Grüße
Thomas
Anzeige