Clase HorizontalLineFormat (Word VBA)

La clase HorizontalLineFormat representa el formato de línea horizontal.

Set

Para usar una variable de clase HorizontalLineFormat, primero debe ser instanciado, por ejemplo

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

Las variables de tipo HorizontalLineFormat se pueden establecer utilizando el procedimiento InlineShape.HorizontalLineFormat

Alignment

Devuelve o establece una constante WdHorizontalLineAlignment que representa la alineación de la línea horizontal especificada.

Valores posibles son wdHorizontalLineAlignCenter - Centrada, wdHorizontalLineAlignLeft - Alineada a la izquierda, wdHorizontalLineAlignRight - Alineada a la derecha.
ActiveDocument.Range.InlineShapes(1).HorizontalLineFormat.Alignment = wdHorizontalLineAlignCenter

NoShade

True si Microsoft Word dibuja la línea horizontal especificada sin sombreado 3D.

Esta propiedad sólo se puede utilizar con líneas horizontales que no estén basadas en un archivo de imagen existente.

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

Parent

Devuelve un objeto Object que representa el objeto primario del objeto HorizontalLineFormat especificado.

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

PercentWidth

Devuelve o establece la longitud de la línea horizontal especificada, expresada como un porcentaje del ancho de la ventana.

Al establecer esta propiedad también establece la propiedad WidthType en wdHorizontalLinePercentWidth.

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

WidthType

Devuelve o establece el tipo de ancho del objeto HorizontalLineFormat especificado.

Valores posibles son wdHorizontalLineFixedWidth - Microsoft Word interpreta el ancho (longitud) de la línea horizontal especificada como un valor fijo (en puntos), wdHorizontalLinePercentWidth - Word interpreta el ancho (longitud) de la línea horizontal especificada como un porcentaje del ancho de pantalla.
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