Compartilhar via

Propriedade Application.SnapToGuides (Publisher)

  • Artigo

True para o Microsoft Publisher usar as guias para alinhar objetos em uma página em uma publicação. Boolean de leitura/gravação.

Sintaxe

expressão. SnapToGuides

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Booliano

Exemplo

Este exemplo adiciona guias de régua horizontal e vertical a cada meia polegada (1,27 centímetros) na primeira página e define as opções para alinhar os objetos na página conforme as guias.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.