Compartilhar via

Método Application.PointsToLines (Publisher)

  • Artigo

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

Sintaxe

expressão. PointsToLines (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 do ponto a ser convertido em linhas.

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 LinesToPoints para converter medidas em linhas em pontos.

Exemplo

Este exemplo converte medidas em pontos em medidas em linhas, demonstrando que o tamanho da fonte na seleção atual não tem qualquer influência sobre o 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 12 points. 
strOutput = "12 points = " _ 
 & Format(Application _ 
 .PointsToLines(Value:=12), _ 
 "0.00") & " lines"

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.