Application.PointsToPicas-Methode (Word)
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
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.