Méthode Global.PointsToPicas (Word)
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
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.