Метод WebNavigationBarSet.AddToEveryPage (Publisher)

Статья
04/07/2023

Добавляет объект ShapeRange типа pbWebNavigationBar (перечисление PbShapeType ) на каждую страницу текущего документа.

Синтаксис

expression. AddToEveryPage (слева, сверху, ширина)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Left	Обязательный	Variant	Положение левого края фигуры, представляющей набор панели веб-навигации.
Top	Обязательный	Variant	Положение верхнего края фигуры, представляющей набор панели веб-навигации.
Width	Необязательный	Variant	Ширина фигуры, представляющей набор панели веб-навигации.

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

ShapeRange

Замечания

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

Пример

В следующем примере в начало каждой страницы активного документа добавляется набор панели веб-навигации с именем WebNavBarSet1.

ActiveDocument.WebNavigationBarSets("WebNavBarSet1") _ 
 .AddToEveryPage Left:=10, Top:=20

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

Dim objWebNavBarSet As WebNavigationBarSet 
 
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.AddSet( _ 
 Name:="WebNavBarSet1", _ 
 Design:=pbnbDesignTopLine, _ 
 AutoUpdate:=True) 
 
objWebNavBarSet.AddToEveryPage Left:=50, Top:=10, Width:=500

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

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

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