Share via


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