Clase HorizontalLineFormat (Word VBA)

La clase HorizontalLineFormat representa el formato de línea horizontal. Para usar una variable de clase HorizontalLineFormat, primero debe ser instanciado, por ejemplo

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

Alignment

Devuelve o establece una constante WdHorizontalLineAlignment que representa la alineación de la línea horizontal especificada. Posibles valores de retorno 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

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. Posibles valores de retorno 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