Compartilhar via


Método Application.PointsToCentimeters (Word)

Converte uma medida de pontos em centímetros (1 centímetro = 28,35 pontos). Retorna a medida convertida como um único.

Sintaxe

expression. PointsToCentimeters( _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 uma medida de 30 pontos no número correspondente de centímetros.

MsgBox PointsToCentimeters(30) & " centimeters"

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.