WebNavigationBarSet.AddToEveryPage method (Publisher)

Adds a ShapeRange object of type pbWebNavigationBar (PbShapeType enumeration) to each page of the current document.

Syntax

expression.AddToEveryPage (Left, Top, Width)

expression A variable that represents a WebNavigationBarSet object.

Parameters

Name	Required/Optional	Data type	Description
Left	Required	Variant	The position of the left edge of the shape representing the web navigation bar set.
Top	Required	Variant	The position of the top edge of the shape representing the web navigation bar set.
Width	Optional	Variant	The 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.