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.