Compartilhar via

Método Application.LinesToPoints (Publisher)

  • Artigo

Converte uma medida de linhas em pontos (1 linha = 12 pontos). Retorna a medida convertida como um Single.

Sintaxe

expressão. LinesToPoints (Valor)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Valor Obrigatório Single O valor em linhas a ser convertido em pontos.

Valor de retorno

Único

Comentários

Esse método pressupõe uma medida em linhas de 12 pontos; o tamanho real de qualquer texto na publicação não tem efeito sobre o fator de conversão.

Use o método PointsToLines para converter medidas em pontos em linhas.

Exemplo

Este exemplo converte medidas em linhas em medidas em pontos, demonstrando que o tamanho da fonte na seleção atual não tem suporte no fator de conversão. Algum texto precisa ser selecionado na publicação ativa para que este exemplo funcione.

Dim strOutput As String 
 
' Set text size to 10 points. 
Selection.TextRange.Font.Size = 10 
 
' Display result for one line of text. 
strOutput = "1 line = " _ 
 & Format(Application _ 
 .LinesToPoints(Value:=1), _ 
 "0.00") & " points"

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.