WebNavigationBarSet オブジェクト (Publisher)

現在のドキュメントに設定された Web ナビゲーション バーを表します。 WebNavigationBarSet オブジェクトは、現在のドキュメントのすべての Web ナビゲーション バー セットを含む WebNavigationBarSets コレクションのメンバーです。

注釈

ドキュメントのすべてのページに指定された Web ナビゲーション バーを追加するには、AddToEveryPage メソッドの Left、Top、および Width パラメーターを使用します。ここで、Left は図形の左端の位置、Top は図形の上端の位置、Width は Web ナビゲーション バー セットを表す図形の幅です。

ドキュメントから Web ナビゲーション バー セットとそのすべてのインスタンスを削除するには、 DeleteSetAndInstances メソッドを使用します 。

以下は、水平方向の Web ナビゲーション バーに関するものです。

  • IsHorizontal プロパティを使用して、ナビゲーション バー セットの向きを決定します。
  • ChangeOrientation メソッドを使用して、Web ナビゲーション バー セットの向きを設定します。
  • 方向が 水平に設定されている場合は、 HorizontalAlignment プロパティと HorizontalButtonCount プロパティを設定できます。

例

次の例では、ページを追加するときに AddToEveryPage メソッドが True に設定されているか、 WebPageOptions.IncludePageOnNewWebNavigationBars プロパティが True に設定されているすべてのページに、最初の Web ナビゲーション バー セットを追加します。

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

次の例では、AddToEveryPage メソッドが True に設定されているか、IncludePageOnNewWebNavigationBars プロパティが True に設定され、ボタン スタイルを小に設定されている各ページに、アクティブなドキュメントの WebNavigationBarSets コレクションの最初のナビゲーション バーを追加します。 一連のナビゲーション バーが水平方向かどうかを判断するテストが実行されます。 If it is not, the ChangeOrientation method is called and the orientation is set to horizontal. After the navigation bar is oriented horizontally, the horizontal button count is set to 3 and the horizontal alignment of the buttons is set to left.

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

メソッド

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on