Compartilhar via

Objeto WebNavigationBarSet (Publisher)

  • Artigo

Representa um conjunto de barras de navegação da Web para o documento atual. O objeto WebNavigationBarSet é um membro da coleção WebNavigationBarSets , que inclui todos os conjuntos de barras de navegação da Web no documento atual.

Comentários

Para adicionar a barra de navegação da Web especificada a cada página de um documento, use os parâmetros Esquerda, Superior e Largura do método AddToEveryPage , em que Left é a posição da borda esquerda da forma, Top é a posição da borda superior da forma e Largura é a largura da forma que representa o conjunto de barras de navegação da Web.

Para remover o conjunto de barras de navegação da Web e cada instância dele de um documento, use o método DeleteSetAndInstances .

A seguinte preocupação é as barras de navegação da Web orientadas horizontalmente:

  • Use a propriedade IsHorizontal para determinar a orientação do conjunto de barras de navegação.
  • Use o método ChangeOrientation para definir a orientação do conjunto de barras de navegação da Web.
  • Se a orientação estiver definida como horizontal, você poderá definir as propriedades HorizontalAlignment e HorizontalButtonCount .

Exemplo

O exemplo a seguir adiciona a primeira barra de navegação da Web definida para cada página que tem o método AddToEveryPage definido como True ao adicionar a página ou a propriedade WebPageOptions.IncludePageOnNewWebNavigationBars definida como True.

Dim objWebNavBarSet as WebNavigationBarSet 
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1) 
objWebNavBarSet.AddToEveryPage Left:=50, Top:=10, Width:=500

O exemplo a seguir exclui todas as instâncias de cada objeto WebNavigationBarSet na coleção WebNavigationBarSets.

Dim objWebNavBarSet As WebNavigationBarSet 
For Each objWebNavBarSet In ActiveDocument.WebNavigationBarSets 
 objWebNavBarSet.DeleteSetAndInstances 
Next objWebNavBarSet

O exemplo a seguir adiciona a primeira barra de navegação na coleção WebNavigationBarSets do documento ativo a cada página que tem o método AddToEveryPage definido como True ou a propriedade IncludePageOnNewWebNavigationBars definida como True e define o estilo de botão como pequeno. Um teste é realizado para determinar se o conjunto de barras de navegação é horizontal. Se não for, o método ChangeOrientation é chamado e a orientação é definida como horizontal. Depois que a barra de navegação for orientada horizontalmente, a contagem de botão horizontal for definida como 3 e o alinhamento horizontal dos botões é definido como esquerda.

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

Métodos

Propriedades

Confira também

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.