Corel VBA Paste mit Free Punkt ???
#3
Hallo Gexi,

Gexi schrieb:...wo ich den FREE Punkt auf dem Blatt hinsetzten will...

was ist denn der „FREE Punkt“ ? confused

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
Zitieren



Nachrichten in diesem Thema
Corel VBA Paste mit Free Punkt ??? - von Gexi - 12.11.2014, 18:08
Corel VBA Paste mit Free Punkt ??? - von norre - 12.11.2014, 18:18
Corel VBA Paste mit Free Punkt ??? - von koter - 12.11.2014, 22:05
Corel VBA Paste mit Free Punkt ??? - von Gexi - 13.11.2014, 09:38
Corel VBA Paste mit Free Punkt ??? - von norre - 13.11.2014, 11:43
Corel VBA Paste mit Free Punkt ??? - von Gexi - 13.11.2014, 12:07
Corel VBA Paste mit Free Punkt ??? - von norre - 13.11.2014, 13:50
Corel VBA Paste mit Free Punkt ??? - von koter - 14.11.2014, 02:13
Corel VBA Paste mit Free Punkt ??? - von Gexi - 19.11.2014, 11:11

Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Corel 16/FineCut 8: Kurven werden zu eckig geplottet kalle 1 380 08.10.2025, 12:17
Letzter Beitrag: Boerni
  Corel Draw Bibliothek und Hilfslinien anorak 5 854 21.07.2025, 14:20
Letzter Beitrag: m.ster
  Export für Corel X7 wolfcom 3 680 10.07.2025, 13:17
Letzter Beitrag: m.ster
  Corel Draw X5 WOT 5 1.227 03.07.2025, 11:58
Letzter Beitrag: m.ster
  Exel-Preisliste in Corel verknüpfen J.Eden 1 578 27.06.2025, 10:49
Letzter Beitrag: m.ster
  Corel Draw Essentials 2024 - Speichert keine Dateien Xaroh 1 591 02.04.2025, 18:37
Letzter Beitrag: Xaroh
  Verzerren im Corel Draw 2019 Werner7272 1 621 06.03.2025, 20:37
Letzter Beitrag: Piet
  Neuinstallation von Corel DRAW X5 nach einem Crash Bronimus 1 852 08.02.2025, 09:49
Letzter Beitrag: Bronimus
  MAUSZEIGER COREL 19 WIN 11 eon247 0 533 21.01.2025, 13:54
Letzter Beitrag: eon247
  Öffnen von Corel-Dateien leroc 0 660 14.01.2025, 01:22
Letzter Beitrag: leroc