Office: Shape (Linie) per VBA in Polar-Koordinaten positionieren

Moinsens, allerseits!

Ich bräuchte mal einen Schubser, weil ich hier irgendwie nicht weiterkomme. Es geht um Folgendes:

Auf einem Worksheet ist ein Shape (eine Linie) platziert. Gegeben sind:
y1,x1: Mittelpunkt eines Kreises (in Punkten)
w: Winkel für die zu zeichnende Linie
d: Der Durchmesser des Kreises
Aus obigen Werten ist es ja kein grundsätzliches Problem, über sin() und cos() die passenden y2,x2 zu berechnen.

Tja, und nun... möchte ich die Linie so positionieren, daß sie eben von y1,x1 nach y2,x2 läuft. Dem Shape kann ich neben y1,x1 ja eigentlich nur Breite und Höhe verpassen. Also muß ich aus y2-y1 bzw. x2-x1 die Seitenlängen des Shapes berechnen. Aber diese können, je nach Winkel, ja auch negativ sein.

Vielleicht mag sich mal jemand den Anhang ansehen, in dem ich das Problem in Form einer Uhr versucht habe, zu realisieren. Das Makro startet einen Sekunden-Timer, in dessen Verarbeitung der Sekundenzeiger (die anderen sind auskommentiert) positioniert werden soll. Ein Marker zur Überprüfung wird richtig (am Rand des Zifferblatts) gesetzt, aber der Zeiger, nunja...

Das Ganze dient als "Grundlagenforschung", die funktionierende Routine soll später dann nicht mehr für sowas Profanes wie eine Uhr verwendet werden. ;-)

Gruß, Michael