Classe HorizontalLineFormat (Word VBA)

La classe HorizontalLineFormat représente la mise en forme des lignes horizontales.

Set

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

Les variables du type HorizontalLineFormat peuvent être définies à l'aide de la procédure InlineShape.HorizontalLineFormat

Alignment

Cette propriété renvoie ou définit une constante WdHorizontalLineAlignment qui représente l’alignement de la ligne horizontale spécifiée.

Valeurs 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

Parent

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

Dim objParent As Object
Set objParent = ActiveDocument.Range.InlineShapes(1).HorizontalLineFormat.Parent

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é.

Valeurs 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