Método WebNavigationBarSet.AddToEveryPage (Publisher)

Adiciona um objeto ShapeRange do tipo pbWebNavigationBar (enumeração PbShapeType ) a cada página do documento atual.

Sintaxe

expressão. AddToEveryPage (esquerda, superior, largura)

Expressão Uma variável que representa um objeto WebNavigationBarSet .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Esquerda	Obrigatório	Variantes	A posição da borda esquerda da forma que representa o conjunto de barras de navegação da Web.
Top	Obrigatório	Variantes	A posição da borda superior da forma que representa o conjunto de barras de navegação da Web.
Width	Opcional	Variantes	A largura da forma que representa o conjunto de barras de navegação da Web.

Valor de retorno

ShapeRange

Comentários

O conjunto de barras de navegação da Web especificado deve existir antes de chamar esse método.

Exemplo

O exemplo a seguir adiciona um conjunto de barras de navegação da Web chamado WebNavBarSet1 à parte superior de cada página do documento ativo.

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

O exemplo a seguir adiciona uma nova barra de navegação da Web definida ao documento ativo e o adiciona a cada página da publicação.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.