Klasse HorizontalLineFormat (Word VBA)

Die Klasse HorizontalLineFormat stellt eine Formatierung für horizontale Linien dar. Um eine HorizontalLineFormat -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Alignment

Zurückgeben oder Festlegen einer WdHorizontalLineAlignment -Konstanten, die die Ausrichtung für die angegebene horizontale Linie darstellt. Mögliche Rückgabewerte sind wdHorizontalLineAlignCenter - Zentriert, wdHorizontalLineAlignLeft - Links ausgerichtet, wdHorizontalLineAlignRight - Rechts ausgerichtet.

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

NoShade

True , wenn Microsoft Word die angegebene horizontale Linien ohne 3D-Schattierung zeichnet.

Diese Eigenschaft kann nur auf horizontale Linien angewendet werden, die nicht aus einer bestehenden Bilddatei stammen.

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

PercentWidth

Gibt die Länge der angegebenen horizontalen Linie als prozentualen Wert der Fensterbreite zurück oder legt diese fest.

Durch Festlegen dieser Eigenschaft wird auch die WidthType -Eigenschaft auf wdHorizontalLinePercentWidthfestgelegt.

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

WidthType

Gibt den Breitentyp für das angegebene HorizontalLineFormat -Objekt zurück oder legt ihn fest. Mögliche Rückgabewerte sind wdHorizontalLineFixedWidth - Die Breite (Länge) der angegebenen horizontalen Linie wird von Microsoft Word als fester Wert (in Punkt) interpretiert, wdHorizontalLinePercentWidth - Die Breite (Länge) der angegebenen horizontalen Linie wird von Word als prozentualer Anteil der Bildschirmbreite interpretiert.

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