Ich habe folgendes Problem:
Innerhalb eines bestimmten Bereichs A7:L57 möchte ich Shapes gruppieren. Die Anzahl der Shapes variiert von 2 bis 8. Insgesamt sind aber viel mehr Shapes auf der Seite!
MEIN PROBLEM:
1. Der unten aufgeführte Code bricht nach der 5. Markierung ab
2. Ich weiß nicht, wie ich den Bereich einfügen kann
Sub test()
Dim ra As Range
Dim sh As Shape
Dim arShapes(1 To 8)
Dim i As Integer
Set rp = Worksheets("Risk Portfolio")
Set arShapes(1) = rp.Shapes(1)
Set arShapes(2) = rp.Shapes(2)
Set arShapes(3) = rp.Shapes(3)
Set arShapes(4) = rp.Shapes(4)
Set arShapes(5) = rp.Shapes(5)
Set arShapes(6) = rp.Shapes(6)
Set arShapes(7) = rp.Shapes(7)
Set arShapes(8) = rp.Shapes(8)
Set ra = Range("A7:L57")
For i = 1 To 8
If i = 1 Then
arShapes(i).Select
Else
arShapes(i).Select False
End If
Next
Selection.ShapeRange.GroupItems
Vielen Dank für die Hilfe.
Thomas