Propiedad Application.SnapToObjects (Publisher)

True para que Microsoft Publisher utilice los objetos de una página para alinear otros objetos. Boolean de lectura y escritura.

Sintaxis

expresión. SnapToObjects

expresión Variable que representa un objeto Application.

Valor devuelto

Booleano

Ejemplo

En este ejemplo se agregan guías de regla horizontales y verticales cada media pulgada en la primera página y se establecen las opciones para alinear los objetos de la página a las guías.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.