Table of contents
TOC
Collapse the table of content
Expand the table of content

WebNavigationBarSet.AddToEveryPage Method (Publisher)

office 365 dev account|Last Updated: 8/24/2017
|
3 Contributors

Adds a ShapeRange of type pbWebNavigationBar to each page of the current document.

Syntax

expression. AddToEveryPage( Left, Top, Width)

_expression_A variable that represents a WebNavigationBarSet object.

Parameters

NameRequired/OptionalData TypeDescription
LeftRequiredVariantThe position of the left edge of the shape representing the Web navigation bar set.
TopRequiredVariantThe position of the top edge of the shape representing the Web navigation bar set.
WidthOptionalVariantThe width of the shape representing the Web navigation bar set.

Return Value

ShapeRange

Remarks

The specified Web navigation bar set must exist before calling this method.

Example

The following example adds a Web navigation bar set named "WebNavBarSet1" to the top of every page in the active document.

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

The following example adds a new Web navigation bar set to the active document and adds it to every page of the publication.

Dim objWebNavBarSet As WebNavigationBarSet 

Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.AddSet( _ 
 Name:="WebNavBarSet1", _ 
 Design:=pbnbDesignTopLine, _ 
 AutoUpdate:=True) 

objWebNavBarSet.AddToEveryPage Left:=50, Top:=10, Width:=500
© 2018 Microsoft