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

Объект WebNavigationBarSet (Publisher)

  • Статья

Представляет набор панели веб-навигации для текущего документа. Объект WebNavigationBarSet является членом коллекции WebNavigationBarSets , которая включает все наборы веб-панели навигации в текущем документе.

Замечания

Чтобы добавить указанную панель веб-навигации на каждую страницу документа, используйте параметры Left, Top и Width метода AddToEveryPage , где Left — это положение левого края фигуры, Top — положение верхнего края фигуры, а Width — это ширина фигуры, представляющей набор панели веб-навигации.

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

Ниже перечислены горизонтальные панели навигации.

  • Используйте свойство IsHorizontal , чтобы определить ориентацию набора панели навигации.
  • Используйте метод ChangeOrientation , чтобы задать ориентацию набора панели веб-навигации.
  • Если ориентация имеет значение горизонтальная, можно задать свойства HorizontalAlignment и HorizontalButtonCount .

Пример

В следующем примере первая панель веб-навигации добавляется к каждой странице, для которых метод AddToEveryPage имеет значение True при добавлении страницы, или свойство WebPageOptions.IncludePageOnNewWebNavigationBars , для которого задано значение True.

Dim objWebNavBarSet as WebNavigationBarSet 
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1) 
objWebNavBarSet.AddToEveryPage Left:=50, Top:=10, Width:=500

В следующем примере удаляются все экземпляры каждого объекта WebNavigationBarSet в коллекции WebNavigationBarSets .

Dim objWebNavBarSet As WebNavigationBarSet 
For Each objWebNavBarSet In ActiveDocument.WebNavigationBarSets 
 objWebNavBarSet.DeleteSetAndInstances 
Next objWebNavBarSet

В следующем примере первая панель навигации в коллекции WebNavigationBarSets активного документа добавляется на каждую страницу, где метод AddToEveryPage имеет значение True, или свойство IncludePageOnNewWebNavigationBars имеет значение True, а затем задает для стиля кнопки значение small. Выполняется проверка, чтобы определить, является ли набор панели навигации горизонтальным. Если это не так, вызывается метод ChangeOrientation , а ориентация устанавливается по горизонтали. После того как панель навигации будет ориентирована по горизонтали, число горизонтальных кнопок устанавливается в значение 3 , а горизонтальное выравнивание кнопок — влево.

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

Методы

Свойства

См. также

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

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