Hilfslinien für den druckbaren Bereich

[koter]

Hallo Günter,

Vielleicht kann Koter mir freundlicherweise bei Gelegenheit ein Makro schreiben, mit dem ich die Hilfslinien für Seitenränder nach meinen Bedürfnissen einfügen kann...

Das folgende Makro erstellt Hilfslinien mit 7mm Abstand vom Rand:

Code:

Sub Seitenrandhilfslinien()
   Dim MGL As Layer
   Dim HL As Shape
   Dim Abstand As Double
   Set MGL = ActiveDocument.MasterPage.GuidesLayer
   ActiveDocument.Unit = cdrMillimeter
   Abstand = 7
   Set HL = MGL.CreateGuideAngle(0, ActivePage.TopY - Abstand, 0)
   Set HL = MGL.CreateGuideAngle(0, ActivePage.BottomY + Abstand, 0)
   Set HL = MGL.CreateGuideAngle(ActivePage.LeftX + Abstand, 0, 90)
   Set HL = MGL.CreateGuideAngle(ActivePage.RightX - Abstand, 0, 90)
End Sub

Wenn Du einen „Programmierauftrag“ mitten in einen Beitrag schreibst könnte ich das übersehen.
Du müsstest mich dann irgendwie wecken (z.B. durch PN oder einen eigenen Beitrag)

...wenn ich mit Rechtsklick auf das kleine Symbol oben links beim Treffpunkt der Lineale klicke, bekomme ich als Auswahl Gitter, Lineale und Hilfslinien einrichten angezeigt. Während ein Klick auf Gitter und Lineale direkt zum Einrichtungsdialog springe  lässt, passiert bei Hilfslinien nichts...

Das Kontextmenü offnet das Hilfslinien-Andockfenster. Ist das Andockfenster schon geöffnet, bewirkt es nichts (es doppelt zu öffnen wäre ja auch sinnlos).

Gruß

Koter