nochmal Shapes mit VBA Steuern
JensF
es gibt ja dieses Kurven-Shape mit dem gewaehlte Punkte ueber eine Bézier curve verbunden werden.
Macht man das manuell, scheint es kein Limit zu geben, wieviele Punkte das sein koennen. Macht man es ueber VBA werden nur 7 Punkte akzeptiert, ab 8 gibt es einen Laufzeitfehler.
Hat jemand eine Idee warum und wie man das beheben kann?
Viele Gruesse
Jens
Sub text()
Dim sh As Worksheet
Dim myCurve As Shape
Dim pts(1 To 7, 1 To 2) As Single
Dim x As Long
Set sh = ActiveSheet
For x = 1 To 7' BEI 8 KRACHTS!!!
pts(x, 1) = Range("A" & x).Value
pts(x, 2) = Range("B" & x).Value
Next
Set myCurve = sh.Shapes.AddCurve(SafeArrayOfPoints:=pts)
End Sub