Hilfslinien bequem setzen

[koter]

Hallo Günther,

meine Software und meine Fähigkeiten sind schon etwas veraltet.
Ich habe eine Excel-Datei angehängt. Das Makro in der Datei erstellt
Hilfslinien im aktuell geöffneten CorelDraw-Dokument:



Du musst Deine Version in den Code eintragen. Wenn ich richtig gezählt habe, ist das Version 21.
Der Code sollte dann also so aussehen:

Code:

Sub VerbindungCDrawAn()
   Dim Version As String
   Version = "21"
   Set CDraw = GetObject("", "CorelDraw.Application." & Version)
   CDraw.ActiveDocument.Unit = 3
End Sub

Ich habe die Datei mit Excel 2013 erstellt und mit CD X7 getestet.
Wenn die Datei mit Deinen Versionen funktioniert, können wir sie Deinem Arbeitsablauf anpassen.

Gruß

Koter