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

[Karthagos]

Hallo Koter,

Deine Software mag etwas veraltet sein, Deine Fähigkeiten bestimmt nicht. Wenn hier etwas veraltet ist, dann bin ich das (knapp 72 Lenze)
Das Makro funktioniert einwandfrei, hat auf Anhieb geklappt und ist ungemein hilfreich. Ich konnte es gleich gebrauchen und anwenden, spart ungemein Zeit. Hier das Ergebnis:
   
Vor allem, wenn man etwas an den Hilfslinienpositionen ändern will oder muss, ist das in ggf. viel Excel schneller erledigt als in Corel.
Herzlichen Dank und ein schönes Wochenende

[Pixel Punk]

Nochmal für alle Interessierten: hier ein Script für 3 mm Anschnitt. Man kann es auch selbst anpassen bzw. umschreiben. Ist nicht sonderlich komplizieret.

   

Public Sub Beschnitt_3mm()

    ' Hilfslinien im Abstand von 3mm
    ' von den Rändern des Dokuments entfernt
    ' erzeugen, sowie in der Dokumentenmitte
    '
    ' Litschi.de
    
    Dim s As Shape                      ' Variablen deklarieren
    Dim sx As Double, sy As Double
    Const Abstand As Double = 0.11811   ' Rand 3mm festlegen

    ActivePage.GetSize sx, sy           ' Aktuelle Seitengröße merken

    ' Hilfslinien im Abstand von den Dokumenträndern zeichnen
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(Abstand, 0, 90#)
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, Abstand, 0#)
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx - Abstand, 0, 90#)
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy - Abstand, 0#)
    

Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, 0, 0#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx, 0, 90#)
Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy, 0#)

End Sub

[norre]

Hallo,

für den Randanschnitt ist neben Anderen auch schon was in Corel integriert.
So werden die Hilfslinien automatisch auf den im Layout eingestellten Randanschnitt gelegt.
Zu finden in den Optionen, schneller geht es mit einem doppelklick auf die Lineale.
   

Gruß
Norre