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
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.