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

Convertit en points une mesure en millimètres (1 mm = 2,835 points).Converts a measurement from millimeters to points (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. MillimetersToPoints, (Value)expression.MillimetersToPoints (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 millimètres à convertir en points.The millimeter value to be converted to points.

Valeur renvoyéeReturn value

UniqueSingle

RemarquesRemarks

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

ExempleExample

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

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.