Método Global.PointsToInches (Word)
Convierte una medida de puntos a pulgadas (1 pulgada = 72 puntos). Devuelve la medida convertida como un valor único.
expresión. PointsToInches
( _Points_
)
Expresión Variable que representa un objeto "Global". Opcional.
Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
---|---|---|---|
Points | Obligatorio | Single | Medida en puntos. |
Simple
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
¿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.