Share via

SnapToObjects Property [Publisher 2003 VBA Language Reference]

  • Article

True for Microsoft Publisher to use objects on a page to line up other objects. Read/write Boolean.

expression.SnapToObjects

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example adds horizontal and vertical ruler guides every half inch on the first page and sets the options to align objects on the page to the guides.

Sub SetSnapOptions()
    Dim intCount As Integer
    Dim intPos As Integer
    With ActiveDocument.Pages(1).RulerGuides
        For intCount = 1 To 16
            intPos = intPos + 36
            .Add Position:=intPos, Type:=pbRulerGuideTypeVertical
        Next
        intPos = 0
        For intCount = 1 To 21
            intPos = intPos + 36
             .Add Position:=intPos, Type:=pbRulerGuideTypeHorizontal
        Next
    End With
    With Application
        .SnapToGuides = True
        .SnapToObjects = True
    End With
End Sub

Applies to | Application Object