AddSet Method [Publisher 2003 VBA Language Reference]
Adds a new WebNavigationBarSet object representing a Web navigation bar set to the specified WebNavigationBarSets collection.
expression.AddSet(Name, [Design], [AutoUpdate] )
expression Required. An expression that returns a WebNavigationBarSet object.
Name Required String. The name of the Web navigation bar to be added. This parameter must be unique.
Design Optional pbWizardNavBarDesign. Specifies the navigation bar design scheme.
AutoUpdate Optional Boolean. True if all pages with the AddHyperlinkToWebNavBar property set to True are added as links to the navigation bar and the navigation bar is kept updated.
Remarks
The Name parameter must be unique to avoid a run time error.
Example
The following example adds a WebNavigationBarSet object to the WebNavigationBarSets collection of the active document then sets some properties.
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.AddSet( _
Name:="WebNavBarSet1", _
Design:=pbnbDesignAmbient, _
AutoUpdate:=True)
With objWebNavBarSet
.AddToEveryPage Left:=50, Top:=10
.ButtonStyle = pbnbDesignTopLine
.ChangeOrientation pbNavBarOrientHorizontal
End With
Applies to | WebNavigationBarSets Collection