Método Global.PointsToPicas (Word)
Convierte una medida de puntos a picas (1 pica = 12 puntos). Devuelve la medida convertida como un valor único.
Sintaxis
expresión. PointsToPicas( _Points_ )
Expresión Variable que representa un objeto "Global". 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 36 puntos a su equivalente en picas.
MsgBox PointsToPicas(36) & " picas"
En este ejemplo, se convierte el valor de la variable sngData (medida en puntos) a centímetros, pulgadas, líneas, milímetros o picas, en función del valor de la variable intUnit (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
Consulte 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.