Classe Line (Word VBA)

La classe Line représente une ligne individuelle dans un objet Rectangle de type wdTextRectangle.

For Each

Voici un exemple de traitement des éléments Line dans une collection

Dim shp As Rectangle: Set shp = 
Dim lin As Line
For Each lin In shp.Lines
	With lin
		
	End With
Next lin

Propriétés

Height Renvoie ou définit la hauteur d'un trait.

7 
Dim lngHeight As Long
lngHeight = lin.Height

Left Renvoie un type long qui représente le nombre de pixels situés entre le bord gauche de la page et la bordure gauche d’un trait.

7 
Dim lngLeft As Long
lngLeft = lin.Left

LineType Renvoie une constante wdLineType qui indique si une ligne est une ligne de texte ou une ligne de tableau.

7 
Dim wltLineType As WdLineType
wltLineType = lin.LineType

Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Line spécifié.

7 
Dim objParent As Object
Set objParent = lin.Parent

Range Renvoie un objet Range qui représente la partie d’un document contenue dans une ligne.

7 
Dim rngRange As Range
Set rngRange = lin.Range

Rectangles Renvoie une collection rectangles qui représente une partie du texte ou des graphiques d’une page dans un document.

7 
Dim rctsRectangles As Rectangles
Set rctsRectangles = lin.Rectangles

Top Renvoie un type long qui représente le nombre de pixels situés entre le haut de la page et la bordure supérieure d'une ligne.

7 
Dim lngTop As Long
lngTop = lin.Top

Width Cette propriété renvoie ou définit la largeur, exprimée en points, d’une ligne.

7 
Dim lngWidth As Long
lngWidth = lin.Width

Lines.Count Renvoie un type long qui représente le nombre de lignes dans la collection.

Dim lns As Lines: Set lns =  
Dim lngCount As Long
lngCount = lns.Count

Lines.Parent Renvoie un Object qui représente l'objet parent de l'objet Lines spécifié.

Dim lns As Lines: Set lns =  
Dim objParent As Object
Set objParent = lns.Parent