Corel VBA Paste mit Free Punkt ???

[koter]

Hallo Gexi,

...wo ich den FREE Punkt auf dem Blatt hinsetzten will...

was ist denn der „FREE Punkt“ ?

Norre hat Recht. Du kannst aber auch die Plustaste drücken und die Koordinaten in die Symbolleiste eingeben.

Es geht natürlich auch per Makro:

Code:

Sub FREEPunktKopierDingensWohinDennNu()
    On Error Resume Next
    If ActiveShape Is Nothing Then Exit Sub
    ActiveDocument.Unit = Rulers.HUnits
    ActiveDocument.ReferencePoint = cdrCenter
    k = Split(InputBox("Koordinaten durch Schrägstrich getrennt eingeben:", "Wohin?"), "/")
    Set s = ActiveShape.Duplicate
    s.PositionX = CDbl(k(0))
    s.PositionY = CDbl(k(1))
End Sub

Die Move-Methode habe ich nicht verwendet, um die Koordinaten nicht in den Offset umrechnen zu müssen.
Die Position-Eigenschaft zu setzen fand ich leichter.
Es wird auch nicht kopiert und eingefügt, sondern dupliziert.
So bleibt die Zwischenablage sauber (das Ding verschmutzt ja so schnell!)
Aber das kannst Du ja noch ändern.

Gruß

Koter