Método Application.PointsToLines (Publisher)

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

Sintaxis

expresión. PointsToLines (Valor)

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Valor	Obligatorio	Single	Valor en puntos que se va a convertir a líneas.

Valor devuelto

Simple

Comentarios

Este método supone una medida en líneas de 12 puntos; El tamaño real de cualquier texto de la publicación no tiene ningún efecto en el factor de conversión.

Utilice el método LinesToPoints para convertir a puntos las medidas en líneas.

Ejemplo:

En este ejemplo se convierten las medidas en puntos en medidas en líneas, lo que demuestra que el tamaño de fuente de la selección actual no afecta al factor de conversión. Para que este ejemplo funcione debe seleccionarse texto en la publicación activa.

Dim strOutput As String 
 
' Set text size to 10 points. 
Selection.TextRange.Font.Size = 10 
 
' Display result for 12 points. 
strOutput = "12 points = " _ 
 & Format(Application _ 
 .PointsToLines(Value:=12), _ 
 "0.00") & " lines"

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.