Application.PointsToPicas-Methode (Word)

Artikel
04/07/2023

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

Syntax

Ausdruck. PointsToPicas( _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

Single

Beispiel

In diesem Beispiel wird 36 Punkt in die entsprechende Anzahl Pica umgewandelt.

MsgBox PointsToPicas(36) & " picas"

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.