Hey y'all,
Would there would be a way for me to make a macro that creates 1 cm margins? I'm aware of the "/tools/options/presets/one centimeter margin" thing, but I'd like the margins to be created with one click, and not having to change the Units to centimeters every time (I usually prefer working with pixels).
Help anyone?
oh and it's my first time here hehe.
Found this here. And with a little modification (see below)
Also see notes where to change the Units and distance
Sub addguides()
Dim D As Document
Dim p As PageSize
Dim x As Long, y As Long
Dim l As String
Dim n As Double
ActiveDocument.Unit = cdrInch 'change to units desired
n = 1 'equals 1/2"
'------------------------ Undo Group Start ------------------------
ActiveDocument.BeginCommandGroup "Undo action description"
Optimization = True
EventsEnabled = False
ActiveDocument.SaveSettings
ActiveDocument.PreserveSelection = False
l = ActiveLayer.Name
x = ActivePage.SizeWidth - n
y = ActivePage.SizeHeight - n
ActivePage.Layers("Guides").CreateGuideAngle x, y, 0 ' Horizontal
ActivePage.Layers("Guides").CreateGuideAngle x, y, 90 ' Vertical
x = ActivePage.SizeWidth - ActivePage.SizeWidth + n
y = ActivePage.SizeHeight - ActivePage.SizeHeight + n
ActiveDocument.RestoreSettings
EventsEnabled = True
Optimization = False
Application.Refresh
ActiveWindow.Refresh
ActiveDocument.EndCommandGroup
'------------------------ Undo Group End ------------------------
ActiveDocument.ClearSelection
ActivePage.Layers(l).Activate
End Sub