WebNavigationBarSet.AddToEveryPage 方法 (Publisher)

将 pbWebNavigationBar 类型的 ShapeRange 对象 (PbShapeType 枚举) 添加到当前文档的每一页。

语法

表达式。AddToEveryPage (Left、 Top、 Width)

表达 一个代表 WebNavigationBarSet 对象的变量。

参数

名称	必需/可选	数据类型	说明
Left	必需	Variant	表示 Web 导航栏集的形状左边缘的位置。
Top	必需	Variant	表示 Web 导航栏集的形状上边缘的位置。
Width	可选	Variant	表示 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。