Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Application.PointsToMillimeters, méthode (éditeur)Application.PointsToMillimeters Method (Publisher)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
3 Collaborateurs

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

SyntaxeSyntax

expression. PointsToMillimeters ( Valeur)expression. PointsToMillimeters( Value)

variable de _expression_A qui représente un objet Application ._expression_A variable that represents an Application object.

ParamètresParameters

NomNameRequis/FacultatifRequired/OptionalType de donnéesData TypeDescriptionDescription
ValeurValueObligatoireRequiredSingleSingleValeur en points à convertir en millimètres.The point value to be converted to millimeters.

Valeur renvoyéeReturn Value

SimpleSingle

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 centimeters.

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 

Voir aussiSee also

ConceptsConcepts

Objet ApplicationApplication Object

© 2018 Microsoft