Publisher) (WebNavigationBarSet 物件

代表為目前檔設定的 Web 導覽列。 WebNavigationBarSet物件是WebNavigationBarSets集合的成員，其中包含目前檔中的所有 Web 導覽列集合。

註解

若要將指定的網頁導覽列新增至檔的每一頁，請使用AddToEveryPage方法的Left、Top和Width參數，其中Left是圖形左邊緣的位置，Top是圖形上邊緣的位置，Width是代表網頁導覽列集的圖形寬度。

若要從檔中移除 Web 導覽列集及其每個實例，請使用 DeleteSetAndInstances 方法。

下列考慮水準導向的 Web 導覽列：

• 使用 IsHorizontal 屬性來判斷導覽列集的方向。
• 使用 ChangeOrientation 方法可設定 Web 導覽列集的方向。
• 如果方向設定為 水準，您可以接著設定 HorizontalAlignment 和 HorizontalButtonCount 屬性。

範例

下列範例會在新增頁面時，將第一個 Web 導覽列集新增至 AddToEveryPage 方法設定為 True 的每個頁面，或將 WebPageOptions.IncludePageOnNewWebNavigationBars 屬性設定為 True。

Dim objWebNavBarSet as WebNavigationBarSet 
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1) 
objWebNavBarSet.AddToEveryPage Left:=50, Top:=10, Width:=500

下列範例會刪除所有 WebNavigationBarSets 集合中每個 WebNavigationBarSet 物件的執行個體。

Dim objWebNavBarSet As WebNavigationBarSet 
For Each objWebNavBarSet In ActiveDocument.WebNavigationBarSets 
 objWebNavBarSet.DeleteSetAndInstances 
Next objWebNavBarSet

下列範例會將使用中檔 之 WebNavigationBarSets 集合中的第一個導覽列新增至 AddToEveryPage 方法設定為 True的每個頁面，或將 IncludePageOnNewWebNavigationBars 屬性設定為 True，然後將按鈕樣式設定為 小型。 執行測試以判斷導覽列集是否為水準。 如果不存在，會呼叫 ChangeOrientation 方法及方向設定為 水平 。 導覽列為水平方向之後，水平按鈕計數設為 3 並按鈕的水平對齊方式設定為 左邊 。

Dim objWebNav As WebNavigationBarSet 
Set objWebNav = ActiveDocument.WebNavigationBarSets(1) 
With objWebNav 
 .AddToEveryPage Left:=10, Top:=10 
 If .IsHorizontal = False Then 
 .ChangeOrientation pbNavBarOrientHorizontal 
 End If 
 .HorizontalButtonCount = 3 
 .HorizontalAlignment = pbnbAlignLeft 
End With

方法

• AddToEveryPage
• ChangeOrientation
• DeleteSetAndInstances

屬性

• Application
• AutoUpdate
• ButtonStyle
• 設計
• HorizontalAlignment
• HorizontalButtonCount
• IsHorizontal
• 連結
• 名稱
• Parent
• ShowSelected

另請參閱

• Publisher 物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。