Propriedade CustomLabel. VerticalPitch (Word)CustomLabel.VerticalPitch property (Word)

Retorna ou define a distância vertical entre a parte superior de uma etiqueta de endereçamento e a parte superior da próxima etiqueta de endereçamento.Returns or sets the vertical distance between the top of one mailing label and the top of the next mailing label. Leitura/gravação única.Read/write Single.

SintaxeSyntax

expression.expression. VerticalPitch

expressão Uma expressão que retorna um objeto 'CustomLabel'.expression An expression that returns a 'CustomLabel' object.

ComentáriosRemarks

Se essa propriedade for alterada para um valor que não seja válido para o layout da etiqueta de endereçamento especificada, ocorrerá um erro.If this property is changed to a value that isn't valid for the specified mailing label layout, an error occurs.

ExemploExample

Este exemplo cria uma etiqueta personalizada chamada "VisitorPass" e define seu layout.This example creates a custom label named "VisitorPass" and defines its layout. A distância entre a borda superior de uma etiqueta e a borda superior da etiqueta seguinte é de 2,17 polegadas (5,5118 centímetros).The distance between the top edge of one label to the top edge of the next label is 2.17 inches.

Set myLabel = Application.MailingLabel.CustomLabels _ 
 .Add(Name:="VisitorPass", DotMatrix:=False) 
With myLabel 
 .Height = InchesToPoints(2.17) 
 .HorizontalPitch = InchesToPoints(3.5) 
 .NumberAcross = 2 
 .NumberDown = 4 
 .PageSize = wdCustomLabelLetter 
 .SideMargin = InchesToPoints(0.75) 
 .TopMargin = InchesToPoints(0.17) 
 .VerticalPitch = InchesToPoints(2.17) 
 .Width = InchesToPoints(3.5) 
End With

Confira tambémSee also

Objeto CustomLabelCustomLabel Object

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.