Método Application.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 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 36 puntos a su equivalente en picas.

MsgBox PointsToPicas(36) & " picas"

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

Objeto Application

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.