Application. MillimetersToPoints-Methode (Publisher)Application.MillimetersToPoints method (Publisher)

Wandelt eine Maßeinheit von Millimeter in Punkt (1 mm = 2,835 Punkt).Converts a measurement from millimeters to points (1 mm = 2.835 points). Gibt die konvertierte Maßangabe als Single-Wert zurück.Returns the converted measurement as a Single.

SyntaxSyntax

Ausdruck. MillimetersToPoints (Wert)expression.MillimetersToPoints (Value)

expression Eine Variable, die ein Application-Objekt darstellt.expression A variable that represents an Application object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
ValueValue ErforderlichRequired SingleSingle Der Millimeterwert, der in Punkt konvertiert werden soll.The millimeter value to be converted to points.

RückgabewertReturn value

SingleSingle

BemerkungenRemarks

Verwenden Sie die PointsToMillimeters -Methode, um Maßangaben von Punkt in Millimeter zu konvertieren.Use the PointsToMillimeters method to convert measurements in points to millimeters.

BeispielExample

In diesem Beispiel werden vom Benutzer eingegebene Maßangaben in Millimetern in Maßangaben in Punkt konvertiert.This example converts measurements in millimeters entered by the user to measurements in points.

Dim strInput As String 
Dim strOutput As String 
 
Do While True 
 ' Get input from user. 
 strInput = InputBox( _ 
 Prompt:="Enter measurement in millimeters (0 to cancel): ", _ 
 Default:="0") 
 
 ' Exit the loop if user enters zero. 
 If Val(strInput) = 0 Then Exit Do 
 
 ' Evaluate and display result. 
 strOutput = Trim(strInput) & " mm = " _ 
 & Format(Application _ 
 .MillimetersToPoints(Value:=Val(strInput)), _ 
 "0.00") & " points" 
 
 MsgBox strOutput 
Loop

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.