Klasse HorizontalLineFormat (Word VBA)

Die Klasse HorizontalLineFormat stellt eine Formatierung für horizontale Linien dar.

Set

Um eine HorizontalLineFormat -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Klassen Variablen vom Typ HorizontalLineFormat können mit der Prozedur InlineShape.HorizontalLineFormat festgelegt werden

Alignment

Zurückgeben oder Festlegen einer WdHorizontalLineAlignment -Konstanten, die die Ausrichtung für die angegebene horizontale Linie darstellt.

Möglichen Werte 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

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen HorizontalLineFormat-Objekts darstellt.

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

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öglichen Werte 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