Método Global.PointsToCentimeters (Word)
Convierte una medida de puntos a centímetros (1 cm = 28,35 puntos). Devuelve la medida convertida como un valor único.
Sintaxis
expresión. PointsToCentimeters( _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 convierte una medida de 30 puntos a su equivalente en centímetros.
MsgBox PointsToCentimeters(30) & " centimeters"
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.