Partager via


Méthode Application.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 « Application ». 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 montre comment convertir la valeur de la variable sngData (une 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 obtenue).

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 Application

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.