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