Partilhar via


Método Application.PointsToInches (Word)

Converte uma medida de pontos em polegadas (1 polegada = 72 pontos). Retorna a medida convertida como um único.

Sintaxe

expression. PointsToInches( _Points_ )

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Pontos Obrigatório Single A medida em pontos.

Valor de retorno

Único

Exemplo

Este exemplo converte a medida da margem superior do documento ativo em polegadas e exibe o resultado em uma caixa de mensagem.

MsgBox PointsToInches(ActiveDocument.Sections(1) _ 
 .PageSetup.TopMargin)

Este exemplo converte o valor da variável sngData (uma medida em pontos) em centímetros, polegadas, linhas, milímetros ou picas, dependendo do valor da variável intUnit (um valor de 1 a 5 que indica a unidade de medida resultante).

Function ConvertPoints(ByVal intUnit As Integer, _ 
 sngData As Single) As Single 
 
 Select Case intUnit 
 Case 1 
 ConvertPoints = PointsToCentimeters(sngData) 
 Case 2 
 ConvertPoints = PointsToInches(sngData) 
 Case 3 
 ConvertPoints = PointsToLines(sngData) 
 Case 4 
 ConvertPoints = PointsToMillimeters(sngData) 
 Case 5 
 ConvertPoints = PointsToPicas(sngData) 
 Case Else 
 Error 5 
 End Select 
 
End Function

Confira também

Objeto de Aplicativo

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.