Application.PointsToLines-Methode (Word)

Wandelt eine Maßangabe von Punkt in Zeilen (1 Zeile = 12 Punkt). Gibt die konvertierte Größe als einzelne zurück.

Syntax

Ausdruck. PointsToLines( _Points_ )

expression Eine Variable, die ein Application-Objekt darstellt. Optional.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Points	Erforderlich	Single	Das in Punkt angegebene Maß.

Rückgabewert

Einzel

Beispiel

In diesem Beispiel wird der Wert für den Zeilenabstand des ersten Absatzes in der Auswahl von Punkt in Linie konvertiert.

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

In diesem Beispiel wird der Wert der Variablen sngData (ein Maß in Punkt) in Zentimeter, Zoll, Linien, Millimeter oder Picas konvertiert, abhängig vom Wert der Variablen intUnit (ein Wert von 1 bis 5, der die resultierende Maßeinheit angibt).

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

Siehe auch

Application-Objekt

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.