Compartilhar via

Objeto WebNavigationBarSet (Publisher)

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

Comentários

Para adicionar a barra de navegação Web especificada a todas as páginas de um documento, utilize os parâmetros Esquerda, Superior e Largura do método AddToEveryPage , em que Esquerda é a posição do limite esquerdo da forma, Superior é a posição da margem superior da forma e Largura é a largura da forma que representa o conjunto de barras de navegação na Web.

Para remover o conjunto de barras de navegação web e todas as instâncias do mesmo de um documento, utilize o método DeleteSetAndInstances .

As seguintes opções dizem respeito a barras de navegação Na Web orientadas horizontalmente:

  • Utilize a propriedade IsHorizontal para determinar a orientação do conjunto de barras de navegação.
  • Utilize o método ChangeOrientation para definir a orientação do conjunto de barras de navegação na Web.
  • Se a orientação estiver definida como horizontal, pode definir as propriedades HorizontalAlignment e HorizontalButtonCount .

Exemplo

O exemplo seguinte adiciona a primeira barra de navegação Web definida a todas as páginas que têm o método AddToEveryPage definido como Verdadeiro ao adicionar a página ou a propriedade WebPageOptions.IncludePageOnNewWebNavigationBars definida como Verdadeiro.

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 seguinte adiciona a primeira barra de navegação na coleção WebNavigationBarSets do documento ativo a cada página que tenha o método AddToEveryPage definido como Verdadeiro ou a propriedade IncludePageOnNewWebNavigationBars definida como Verdadeiro e, em seguida, define o estilo do botão como pequeno. É realizado um teste 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.

  • Last updated on