Gerade bin ich dabei ein Tool zu basteln, das verschiedene Elemente von einer idw in eine andere kopiert. Eines dieser Elemente ist eine DrawingSketch.
Folgend für den Fall, dass die Skizze an keiner Ansicht hängt. (Das .Parent Objekt ist dann das Sheet)
Mein Weg ist bisher:
neue Skizze auf dem Ziel-Sheet erstellen
Inhalt der Quelle in die neue Skizze kopieren
Code:
Set oTargetSketch = oTargetSheet.Sketches.Add()
oSourceSketch.CopyContentsTo(oTargetSketch)
Soweit so gut, das funktioniert im Grunde.
Eine Skizze lässt sich aber vom User auf dem Blatt verschieben (Drag & Drop). Bei der Erstellung von Skizzen liegt der Ursprung auf dem Blatt-Ursprung. Aber nicht mehr nach dem Verschieben.
Wie komme ich an die Position einer Skizze? Lässt sich die neue Skizze an die gleichen Koordinaten schieben?
Das konnte ich nicht finden. Vielleicht könnt ihr mir auf die Sprünge helfen.
------------------
Gruß KraBBy
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP