Método Application.PointsToMillimeters (Word)
Convierte una medida de puntos a milímetros (1 milímetros = 2,835 puntos). Devuelve la medida convertida como un valor único.
Sintaxis
expresión. PointsToMillimeters( _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 convierten 72 puntos a su equivalente en milímetros.
MsgBox PointsToMillimeters(72) & " millimeters"
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.