Classe HorizontalLineFormat (Word VBA)

La classe HorizontalLineFormat représente la mise en forme des lignes horizontales. Pour utiliser une variable de classe HorizontalLineFormat, elle doit d'abord être instanciée, par exemple

Dim hlf as HorizontalLineFormat
Set hlf = ActiveDocument.Range.InlineShapes(1).HorizontalLineFormat

Alignment

Cette propriété renvoie ou définit une constante WdHorizontalLineAlignment qui représente l’alignement de la ligne horizontale spécifiée. Les valeurs de retour possibles sont wdHorizontalLineAlignCenter - Centrée, wdHorizontalLineAlignLeft - Alignée à gauche, wdHorizontalLineAlignRight - Alignée à droite.

ActiveDocument.Range.InlineShapes(1).HorizontalLineFormat.Alignment = wdHorizontalLineAlignCenter

NoShade

La valeur true si Microsoft Word trace le trait horizontal spécifié sans ombrage 3D.

Vous ne pouvez utiliser cette propriété qu'avec des traits horizontaux qui ne reposent sur aucun fichier image existant.

Selection.InlineShapes.AddHorizontalLineStandard 
ActiveDocument.InlineShapes(1) _ 
 .HorizontalLineFormat.NoShade = True

PercentWidth

Cette propriété renvoie ou définit la longueur de la ligne horizontale spécifiée, exprimée sous la forme d'un pourcentage de la largeur de la fenêtre.

Définir cette propriété affecte également la propriété WidthType wdHorizontalLinePercentWidth.

Selection.InlineShapes.AddHorizontalLineStandard 
ActiveDocument.InlineShapes(1) _ 
 .HorizontalLineFormat.PercentWidth = 50

WidthType

Cette propriété renvoie ou définit le type de largeur pour l'objet HorizontalLineFormat spécifié. Les valeurs de retour possibles sont wdHorizontalLineFixedWidth - Microsoft Word interprète la longueur de la ligne horizontale spécifiée comme une valeur fixe (en points), wdHorizontalLinePercentWidth.

Dim temp As InlineShape 
Set temp = _ 
 ActiveDocument.InlineShapes.AddHorizontalLineStandard 
MsgBox "AddHorizontalLineStandard - WidthType = " _ 
 & temp.HorizontalLineFormat.WidthType 
Set temp = _ 
 ActiveDocument.InlineShapes.AddHorizontalLine _ 
 ("C:\My Documents\ArtsyRule.gif") 
MsgBox "AddHorizontalLine - WidthType = " _ 
 & temp.HorizontalLineFormat.WidthType