Application.PointsToMillimeters-Methode (Word)
Konvertiert eine Maßeinheit von Punkt in Millimeter (1 Millimeter = 2,835 Punkt). Gibt die konvertierte Maßangabe als Single-Wert zurück.
Syntax
Ausdruck. PointsToMillimeters( _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 72 Punkt in die entsprechende Anzahl Millimeter konvertiert.
MsgBox PointsToMillimeters(72) & " millimeters"
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.