Hey Hallo..
Möchte gerne Koordinaten aus Excel, verbunden miteinader, zeichnen lassen.
Nur beim debuggen bekommt ich für s=2 (Zweiter Durchlauf) für x1,x2,y1 und y2 = Leer
Bei s=1 (erster Durchlauf) nimmt bekommt er es hin und die Linie wird auch richtig dargestellt.
Achja die Zellen sind definitiv nicht leer ;)
Code:
Sub Lienenzug() 'Wiedergabe aus den Koordinaten aus dem Arbeitsblatt "Auswertung" als Linien
Dim x1, y1, x2, y2 As Single
Dim RSX, RSY, RHO, s As Integer 'RasterHOehe
Sheets("Auswertung").Activate
For s = 1 To 10
x1 = Cells(5 + s, 5).Value
y1 = Cells(5 + s, 6).Value
x2 = Cells(6 + s, 5).Value
y2 = Cells(6 + s, 6).Value
Sheets("Grafik").Activate
RSX = 50: RSY = 30: RHO = 200
With ActiveSheet.Shapes.AddLine(x1 + RSX, (RSY + RHO) - y1, x2 + RSX, (RSY + RHO) - y2).Line
.DashStyle = msoLineSolid
.ForeColor.RGB = RGB(255, 0, 0)
.Weight = 1
End With
Next s
End Sub |