Classe HorizontalLineFormat (Word VBA)

A classe HorizontalLineFormat representa a formatação horizontal de uma linha. Para usar uma variável de classe HorizontalLineFormat, ela primeiro precisa ser instanciada por exemplo

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

Alignment

Retorna ou define uma constante WdHorizontalLineAlignment que representa o alinhamento da linha horizontal especificada. Leitura/gravação. Os valores de retorno possíveis são wdHorizontalLineAlignCenter - Centralizado, wdHorizontalLineAlignLeft - Alinhado à esquerda, wdHorizontalLineAlignRight - Alinhado à direita.

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

NoShade

True se o Microsoft Word desenha a linha horizontal especificada sem sombreamento 3D. Boolean de leitura/gravação.

Você pode usar essa propriedade somente com linhas horizontais que não estejam baseadas em um arquivo de imagem existente.

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

PercentWidth

Retorna ou define o comprimento da linha horizontal especificada expressado como um percentual da largura da janela. Leitura/gravação única.

Também é a definição dessa propriedade define a propriedade WidthType como wdHorizontalLinePercentWidth.

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

WidthType

Retorna ou define o tipo de largura do objeto HorizontalLineFormat especificado. Leitura/gravação WdHorizontalLineWidthType. Os valores de retorno possíveis são wdHorizontalLineFixedWidth - Microsoft Word interpreta a largura (comprimento) da linha horizontal especificada como um valor fixo (em pontos). Este é o valor padrão para as linhas horizontais adicionadas com o método AddHorizontalLine. A definição da propriedade Width do objeto InlineShape associado a uma linha horizontal define a propriedade WidthType como esse valor, wdHorizontalLinePercentWidth - O Word interpreta a largura (comprimento) da linha horizontal especificada como uma porcentagem da largura da tela. Este é o valor padrão para as linhas horizontais adicionadas com o método AddHorizontalLineStandard. Definindo a propriedade PercentWidth em uma linha horizontal define a propriedade WidthType como esse valor.

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