instant guides at hand

[wOxxOm]

I don’t like rulers (they eat up workspace) so I always keep them off, and if I need new guide, I press “h” or “v” (horizontal/vertical) and new guide appears in cursor position. Magic!


Public Type lpPoint
x As Long
y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (ByRef pos As lpPoint) As Boolean

Sub DrawGuideHorizontal()
Dim p As lpPoint, x As Double, y As Double, l As Layer
GetCursorPos p
ActiveDocument.ActiveWindow.ScreenToDocument p.x, p.y, x, y
Set l = ActiveLayer
ActiveDocument.ActivePage.Layers("Guides").CreateGuide x, y, x + 1, y
l.Activate
End Sub

Sub DrawGuideVertical()
Dim p As lpPoint, x As Double, y As Double, l As Layer
GetCursorPos p
ActiveDocument.ActiveWindow.ScreenToDocument p.x, p.y, x, y
Set l = ActiveLayer
ActiveDocument.ActivePage.Layers("Guides").CreateGuide x, y, x, y + 1
l.Activate
End Sub

[Alex]

Very good! And handy. I'm sure other people would find these macros useful.

I would suggest to put your code in the "CODE" tags for better readability. Like that:

Public Type lpPoint
    x As Long
    y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (ByRef pos As lpPoint) As Boolean

Sub DrawGuideHorizontal()
    Dim p As lpPoint, x As Double, y As Double, l As Layer
    GetCursorPos p
    ActiveDocument.ActiveWindow.ScreenToDocument p.x, p.y, x, y
    Set l = ActiveLayer
    ActiveDocument.ActivePage.Layers("Guides").CreateGuide x, y, x + 1, y
    l.Activate
End Sub

Sub DrawGuideVertical()
    Dim p As lpPoint, x As Double, y As Double, l As Layer
    GetCursorPos p
    ActiveDocument.ActiveWindow.ScreenToDocument p.x, p.y, x, y
    Set l = ActiveLayer
    ActiveDocument.ActivePage.Layers("Guides").CreateGuide x, y, x, y + 1
    l.Activate
End Sub

Also I think in your case using CreateGuideAngle method would be easier than just CreateGuide.

ActivePage.Layers("Guides").CreateGuide x, y, 0 ' Horizontal
ActivePage.Layers("Guides").CreateGuide x, y, 90 ' Vertical

Also you don't have to call ActiveDocument.ActivePage or ActiveDocument.ActiveWindow. They all have shortcuts on the Application object, so just calling ActivePage, ActiveLayer, ActiveWindow, ActiveShape will do the same thing, with less typing.

[shelbym]

That is a great idea. I think it will come in handy. I use guides a ton. So here is some code in return, although i am sure you have allready thought of it.

This is an easy way to delete all the guidelines on your page:

Sub DeleteAllGuides()
    ActiveDocument.MasterPage.Guides(cdrAllGuides).Delete
End Sub

Hope it helps, and thanks for the GREAT code.

Shelby

[ddonnahoe]

Is there a typo here Alex?

Also I think in your case using CreateGuideAngle method would be easier than just CreateGuide.


Code:
ActivePage.Layers("Guides").CreateGuide x, y, 0 ' Horizontal
ActivePage.Layers("Guides").CreateGuide x, y, 90 ' Vertical

Should it have read...

ActivePage.Layers("Guides").CreateGuideAngle x, y, 0 ' Horizontal
ActivePage.Layers("Guides").CreateGuideAngle x, y, 90 ' Vertical

?

[Alex]

Yes, you are right. It should read "...CreateGuideAngle ...". Sorry about that.