WebNavigationBarSet.AddToEveryPage メソッド (Publisher)

現在のドキュメントの各ページに pbWebNavigationBar (PbShapeType 列挙) 型の ShapeRange オブジェクトを追加します。

構文

式。AddToEveryPage (左、 上、 幅)

式WebNavigationBarSet オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Left	必須	バリアント型	Web ナビゲーション バー セットを表す図形の左端の位置。
Top	必須	バリアント型	Web ナビゲーション バー セットを表す図形の上端の位置。
Width	オプション	バリアント型	Web ナビゲーション バー セットを表す図形の幅。

戻り値

ShapeRange

注釈

このメソッドを呼び出す前に、指定した Web ナビゲーション バー セットが存在している必要があります。

例

次の例では、作業中の文書のすべてのページの先頭に WebNavBarSet1 という名前の Web ナビゲーション バー セットを追加します。

ActiveDocument.WebNavigationBarSets("WebNavBarSet1") _ 
 .AddToEveryPage Left:=10, Top:=20 

次の例では、作業中の文書に新しい Web ナビゲーション バー セットを追加し、文書のすべてのページに追加します。

Dim objWebNavBarSet As WebNavigationBarSet 
 
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.AddSet( _ 
 Name:="WebNavBarSet1", _ 
 Design:=pbnbDesignTopLine, _ 
 AutoUpdate:=True) 
 
objWebNavBarSet.AddToEveryPage Left:=50, Top:=10, Width:=500

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

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