次の方法で共有

WebNavigationBarSet オブジェクト (Publisher)

  • [アーティクル]

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

注釈

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

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

次の問題は、水平方向の Web ナビゲーション バーです。

  • IsHorizontal プロパティを使用して、ナビゲーション バー セットの向きを決定します。
  • ChangeOrientation メソッドを使用して、Web ナビゲーション バー セットの向きを設定します。
  • 方向が horizontal に設定されている場合は、 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

次の使用例は、作業中の文書の WebNavigationBarSets コレクション内の最初のナビゲーション バーを 、AddToEveryPage メソッドが True に設定されている各ページ、または IncludePageOnNewWebNavigationBars プロパティが True に設定されている各ページに追加し、ボタン スタイルを small に設定します。 ナビゲーション バー セットが水平であるかどうかを判断するためのテストが実行されます。 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 のサポートおよびフィードバックを参照してください。