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

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

SyntaxSyntax

Ausdruck. PointsToMillimeters (Wert)expression.PointsToMillimeters (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 Punktwert, der in Millimeter konvertiert werden soll.The point value to be converted to millimeters.

RückgabewertReturn value

SingleSingle

BemerkungenRemarks

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

BeispielExample

In diesem Beispiel werden Maßangaben in vom Benutzer eingegebenen Punkten in Maßangaben in Millimetern umgewandelt.This example converts measurements in points entered by the user to measurements in millimeters.

Dim strInput As String 
Dim strOutput As String 
 
Do While True 
 ' Get input from user. 
 strInput = InputBox( _ 
 Prompt:="Enter measurement in points (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) & " points = " _ 
 & Format(Application _ 
 .PointsToMillimeters(Value:=Val(strInput)), _ 
 "0.00") & " mm" 
 
 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.