SnapToObjects Property

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