Propriedade CustomLabel.NumberAcross (Word)

Retorna ou define o número de etiquetas de endereçamento personalizadas em uma página. Long de leitura/gravação.

Sintaxe

expression. NumberAcross

Expressão Uma expressão que retorna um objeto 'CustomLabel'.

Comentários

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.

Exemplo

Este exemplo cria uma nova etiqueta personalizada chamada "Dept. Labels" e define o layout, incluindo o número de etiquetas na página.

Set myLabel = Application.MailingLabel.CustomLabels _ 
 .Add(Name:="Dept. Labels", DotMatrix:=False) 
With myLabel 
 .Height = InchesToPoints(0.5) 
 .HorizontalPitch = InchesToPoints(2.06) 
 .NumberAcross = 4 
 .NumberDown = 4 
 .PageSize = wdCustomLabelLetter 
 .SideMargin = InchesToPoints(0.28) 
 .TopMargin = InchesToPoints(0.5) 
 .VerticalPitch = InchesToPoints(2) 
 .Width = InchesToPoints(1.75) 
End With

Confira também

Objeto CustomLabel

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.