Check if a guideline exist at a certain position

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Sub test_check_page_for_horiz_guide()

Dim sr_matching As ShapeRange

    check_page_for_horiz_guide_at_Y_position ActivePage, 1.234, 0.01, sr_matching
    MsgBox "Number of matching guides: " & sr_matching.Count
    If sr_matching.Count > 0 Then
        sr_matching.CreateSelection
    Else
        ActiveDocument.ClearSelection
    End If
End Sub

'------------------------------------------------------------------------------------

Function check_page_for_horiz_guide_at_Y_position(ByVal TargetPage As Page, ByVal YPosition As Double, ByVal Tolerance As Double, Optional ByRef MatchingGuideShapes As ShapeRange) As Boolean

Dim srR As ShapeRange

    Set sr = TargetPage.Shapes.FindShapes(query:="@type='guideline' And @com.guide.type = " & cdrHorizontalGuide & " and (" & YPosition & "-@com.centerY).abs <= " & Tolerance)
    Set MatchingGuideShapes = sr
    If sr.Count > 0 Then
        check_page_for_horiz_guide_at_Y_position = True
    End If

End Function