Shapes - Linie zeichnen zw zwei Punkten
05.09.2022 21:01:36
Daniel
wie programmiere ich folgendes am geschicktesten:
ich habe als Vorlage für ein Grafikelement ein kurzes stück Linie. Dieses möchte ich kopieren und an einer anderen Stelle zwischen zwei gegeben Punkten einfügen.
die Punkte sind jeweils mit dem .Top und dem .Left-Wert gegeben.
also im Prinzip so:
Activesheet.Shapes("Vorlage_Linie").Copy
ActiveSheet.Paste
Selection.? = Top1
Selection.? = Left1
Selection.? = Top2
Selection.? ? Left2
Also entweder die Linine kopieren und dann die Eckpunkte anpassen (aber nicht Top und Left denn das berücksichtigt nicht die Richtung der Linie, oder ich zeichne die Linie und übertrage das Format, analog .´Copy/PasteSpecial bei Zellen. Allerdings zeichnet mir hier der Recorder das einfügen des Formates nicht auf.
Das kopieren scheint .PickUp zu sein, aber nach der selektion des Zielobjektes bricht die Aufzeichnung ab.
Kann mir da jemand weiterhelfen?
Gruß Daniel