IsHorizontal Property

True if the specified WebNavigationBarSet has a horizontal orientation. Read-only Boolean.

expression.IsHorizontal

expression    Required. An expression that returns a WebNavigationBarSet object.

Remarks

This property is used to determine the orientation of the navigation bar set prior to setting certain properties that assume a horizontal orientation such as the HorizontalAlignment property.

Example

This example adds the first navigation bar in the WebNavigationBarSets collection of the active document to each page, and then sets the button style to small. A test is performed to determine whether the navigation bar set is horizontal or not. If it is not, the ChangeOrientation method is called and the orientation is set to horizontal. After the navigation bar is oriented horizontally, the horizontal button count is set to 3 and the horizontal alignment of the buttons is set to left.

    Dim objWebNav As WebNavigationBarSet
Set objWebNav = ActiveDocument.WebNavigationBarSets(1)
With objWebNav
    .AddToEveryPage Left:=10, Top:=10
    .ButtonStyle = pbnbButtonStyleSmall
    If .IsHorizontal = False Then
        .ChangeOrientation pbNavBarOrientHorizontal
    End If
    .HorizontalButtonCount = 3
    .HorizontalAlignment = pbnbAlignLeft
End With