Méthode Global.PointsToPicas (Word)

  • Article

Convertit une mesure en picas (1 pica = 12 points). Renvoie la mesure convertie en tant qu'un seul.

Syntaxe

expression. PointsToPicas( _Points_ )

Expression Variable qui représente un objet « Global ». Facultatif.

Paramètres

Nom Requis/Facultatif Type de données Description
Points Obligatoire Single Mesure, en points.

Valeur renvoyée

Unique

Exemple

Cet exemple montre comment convertir 36 points en picas.

MsgBox PointsToPicas(36) & " picas"

Cet exemple convertit la valeur de la variable sngData (mesure en points) en centimètres, pouces, lignes, millimètres ou picas, selon la valeur de la variable intUnit (valeur comprise entre 1 et 5 qui indique l’unité de mesure résultante).

Function ConvertPoints(ByVal intUnit As Integer, _ 
 sngData As Single) As Single 
 
 Select Case intUnit 
 Case 1 
 ConvertPoints = PointsToCentimeters(sngData) 
 Case 2 
 ConvertPoints = PointsToInches(sngData) 
 Case 3 
 ConvertPoints = PointsToLines(sngData) 
 Case 4 
 ConvertPoints = PointsToMillimeters(sngData) 
 Case 5 
 ConvertPoints = PointsToPicas(sngData) 
 Case Else 
 Error 5 
 End Select 
 
End Function

Voir aussi

Objet global

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.