Linien miteinander verknüpfen
11.08.2016 10:24:38
Mr.
Situation:
Ich möchte zwei Linien mit einer definierten Länge zu einem Polygon zusammenfügen.
Zuerst soll Linie 1 erzeugt werden. Diese wird anschließend gedreht.
Das gleiche wird mit Linie 2 gemacht.
Nun soll der Endpunkt von Linie 1 mit .Width + .Left und .Height + .Top ermittelt werden.
Linie 2 soll nun über .Left und . Top an den Endpunkt von Linie 1 verschoben werden.
Problem:
Linie 1 wird bei der Erzeugung mit den Informationen zum Start- und Endpunkt abgelegt. Diese werden allerdings nach einer Drehung beibehalten, sodass sich der so entstandene neue Endpunkt an anderer Stelle befindet.
Code:
Sub Test()
Dim staright_line As Shape
Dim staright_line1 As Shape
Dim X1, X2, Y1, Y2
Set staright_line = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 123, 89. _
5714173228, _
160, 120)
staright_line.Rotation = 50
With staright_line
X2 = .Width + .Left
Y2 = .Height + .Top
End With
Set staright_line1 = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 123, 89. _
5714173228, _
160, 120)
staright_line1.Rotation = 50
With staright_line1
X1 = X2
Y1 = Y2
End With
End Sub
Ziel: Ich suche nun nach einer Möglichkeit die Informationen einer Linie nach einer Drehung zu aktualisieren. Eine Neuberechnung der Positionen ist zwar möglich, aber an der Stelle, sollte es eine Möglichkeit geben die Werte zu aktualisieren, völlig überflüssig.
Hat einer von Euch eine Lösung?
Viele Grüße
Mr. Visit