Hallo Leute,
eine Frage an die VBA-Spezialisten. Ich möchte gern die Koordinaten einer mauserstellten Powerpoint-Freiformlinie mittels eines kleinen VBA-Makros auslesen. Der Zweck ist, in Karten Straßendaten mittels einer Freiformlinie zu überlagern und dann mit den Koordinaten rückzurechnen, Kurvenradien etc.
Die ganze Mathematik ist mir sonst geläufig. Aber wie komme ich mittels VBA an das Array mit den Parametern der Punkte? Ich bräuchte irgendwas Ähnliches wie folgt:
dim iAnzahlpunkte(...), x(..),y(..)
iAnzahlPunkte = (eigenschaft kurve.. .ActualElement.IsNumberPointsCurve oder so..)
for I=1 to iAnzahlPunkte
x(i)= (..eigenschaft-x-koordinate-des-Punktes-I)
y(i)= (..eigenschaft-y-koordinate-des-puntkes-I)
r1(i)=(..eigenschaft tangenten etc..)
r1(i)=(..)
next i
Das hat bestimmt schon mal wer programmiert. Aber ich verheddere mich oft in der VBA-Hilfe.. Vor allem bei den Eigenschaften..
Bin mal gespannt auf die Tips. Schonmal vorab vielen Dank für Hilfen.
Freundlichen Gruß
Bernd AB |