Método Application.PointsToLines (Word)

Convierte una medida de puntos a líneas (1 línea = 12 puntos). Devuelve la medida convertida como un valor único.

Sintaxis

expresión. PointsToLines( _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 convierte el valor del espaciado interlineal del primer párrafo de la selección de puntos a líneas.

MsgBox PointsToLines(Selection.Paragraphs(1).LineSpacing) _ 
 & " lines"

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.