Hilfslinien bequem setzen

[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