Método Application.PointsToInches (Word)
Convierte una medida de puntos a pulgadas (1 pulgada = 72 puntos). Devuelve la medida convertida como un valor único.
Sintaxis
expresión. PointsToInches( _Points_ )
expresión Variable que representa un objeto Application. Opcional.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Points | Obligatorio | Single | Medida en puntos. |
Valor devuelto
Simple
Ejemplo:
En este ejemplo se convierte la medida del margen superior del documento activo a pulgadas y se muestra el resultado en un cuadro de mensaje.
MsgBox PointsToInches(ActiveDocument.Sections(1) _
.PageSetup.TopMargin)
En este ejemplo se convierte el valor de la variable sngData (una medida en puntos) en centímetros, pulgadas, líneas, milímetros o picas, en función del valor de la variable intUnit (un valor de 1 a 5 que indica la unidad 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
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.