Méthode Application.CentimetersToPoints (Publisher)

Article
04/07/2023

Convertit une mesure en centimètres en points (1 cm = 28,35 points). Renvoie la mesure convertie sous la forme d’un type de données Single.

Syntaxe

expression. CentimètresToPoints (Valeur)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Valeur	Obligatoire	Single	Valeur en centimètres à convertir en points.

Valeur renvoyée

Unique

Remarques

Utilisez la méthode PointsToCentimeters pour convertir en centimètres une mesure en points.

Exemple

Cet exemple convertit en points des mesures en centimètres fournies par l’utilisateur.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette 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.

Partager via