Application.LinesToPoints-Methode (Publisher)

Konvertiert eine Messung von Linien in Punkte (1 Linie = 12 Punkt). Gibt die konvertierte Maßangabe als Single-Wert zurück.

Syntax

Ausdruck. LinesToPoints (Value)

expression Eine Variable, die ein Application-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Wert	Erforderlich	Single	Der Zeilenwert, der in Punkt konvertiert werden soll.

Rückgabewert

Einzel

Hinweise

Bei dieser Methode wird von einer Messung in 12-Punkt-Linien ausgegangen; die tatsächliche Größe von Text in der Publikation hat keine Auswirkungen auf den Konvertierungsfaktor.

Verwenden Sie die PointsToLines -Methode, um Maßangaben von Punkt in Zeilen zu konvertieren.

Beispiel

Dieses Beispiel konvertiert Maßangaben in Zeilen in Maßangaben in Punkt und zeigt, dass die Schriftgröße in der aktuellen Auswahl keinen Einfluss auf den Umrechnungsfaktor hat. Damit dieses Beispiel funktioniert, muss in der aktiven Publikation Text ausgewählt sein.

Dim strOutput As String 
 
' Set text size to 10 points. 
Selection.TextRange.Font.Size = 10 
 
' Display result for one line of text. 
strOutput = "1 line = " _ 
 & Format(Application _ 
 .LinesToPoints(Value:=1), _ 
 "0.00") & " points"

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.