Свойство WebNavigationBarSet.IsHorizontal (Publisher)

Статья
04/07/2023

Значение true , если указанный объект WebNavigationBarSet имеет горизонтальную ориентацию. Только для чтения, Boolean.

Синтаксис

expression. IsHorizontal

Выражение Переменная, представляющая объект WebNavigationBarSet .

Возвращаемое значение

Boolean

Примечания

Это свойство используется для определения ориентации набора панели навигации перед установкой определенных свойств, предполагающих горизонтальную ориентацию, таких как свойство HorizontalAlignment .

Пример

В этом примере первая панель навигации в коллекции WebNavigationBarSets активного документа добавляется на каждую страницу, а затем задает стиль кнопки в малый.

Выполняется проверка, чтобы определить, является ли набор панели навигации горизонтальным. Если это не так, вызывается метод ChangeOrientation , а ориентация устанавливается по горизонтали. После того как панель навигации будет ориентирована по горизонтали, число кнопок по горизонтали будет равно 3, а горизонтальное выравнивание кнопок — pbnbAlignLeft.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через