CorelDraw Hilfslinien Makro (Beschnitt / Druckerei)

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#)
    ' Mittige Hilfslininen
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(sx / 2, 0, 90#)
    Set s = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, sy / 2, 0#)
    
End Sub

CorelDraw Macro

3 Kommentare zu „CorelDraw Hilfslinien Makro (Beschnitt / Druckerei)“

  1. Hallo,

    eine tolle Lösung! Wäre es auch möglich die Außenränder des Arbeitsberechs mit Hilfslinien zu versehen. So, dass alles in einem Script ausgeführt wird. Momentan arbeite ich mit aufgezeichneten Makros dh. für jedes Format (Din lang oder A4, 5, 6 usw..) muss immer ein extra Makro erstellen. Es wäre Super wenn man das mit diesem Script verbinden könnte…ein klick und alles ist mit Linien versehen.

    Nochmal vielen Dank für diese tolle Lösung, die mir viel Zeit spart.

    Armin Gellert

  2. Ergänze das Makro einfach um folgende Zeilen um Linien an den 4 Dokumenträndern zu zeichnen.

    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#)

Kommentar verfassen

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert