Application. PointsToMillimeters,, méthode (Publisher)Application.PointsToMillimeters method (Publisher)

Convertit une mesure en points en millimètres (1 mm = 2,835 points).Converts a measurement from points to millimeters (1 mm = 2.835 points). Renvoie la mesure convertie sous la forme d’un type de données Single.Returns the converted measurement as a Single.

SyntaxeSyntax

expression. PointsToMillimeters, (Value)expression.PointsToMillimeters (Value)

_expression_Une variable qui représente un objet**Application**.expression A variable that represents an Application object.

ParamètresParameters

NomName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
ValueValue ObligatoireRequired UniqueSingle Valeur en points à convertir en millimètres.The point value to be converted to millimeters.

Valeur renvoyéeReturn value

UniqueSingle

RemarquesRemarks

Utilisez la méthode MillimetersToPoints pour convertir en points des mesures en millimètres.Use the MillimetersToPoints method to convert measurements in millimeters to points.

ExempleExample

Cet exemple convertit en millimètres des mesures en points fournies par l’utilisateur.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 

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this documentation? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.