Méthode Global.PointsToLines (Word)
Convertit en lignes une mesure exprimée en points (1 ligne = 12 points). Renvoie la mesure convertie en tant qu'un seul.
Syntaxe
expression. PointsToLines( _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 en lignes la valeur de l'interligne du premier paragraphe de la sélection, exprimée en points.
MsgBox PointsToLines(Selection.Paragraphs(1).LineSpacing) _
& " lines"
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.