Objeto WebNavigationBarSets (Publisher)
Uma coleção de todos os objetos WebNavigationBarSet no documento atual. Cada objeto WebNavigationBarSet representa um conjunto de barras de navegação da Web que consiste em hiperlinks.
Comentários
Por padrão, há dois objetos WebNavigationBarSet em cada página do assistente web; um é somente texto e o outro é vertical. Esses objetos correspondem ao design do assistente, independentemente de uma barra de navegação ser usada na página.
Use a propriedade WebNavigationBarSets do documento atual para retornar um objeto WebNavigationBarSets .
Use Item (índice), em que o índice é o número do índice, para retornar um objeto WebNavigationBarSet da coleção.
Use a propriedade Count para retornar o número de conjuntos de barras de navegação da Web na coleção.
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 Esquerda é a distância da esquerda da página até a borda esquerda da barra de navegação, Top é a distância da parte superior da página até a borda superior da barra de navegação, e Largura é a largura da barra de navegação.
Exemplo
O exemplo a seguir define uma variável de objeto à coleção WebNavigationBarSets do documento ativo.
Dim objWebNavBarSets As WebNavigationBarSets
Set objWebNavBarSets = ActiveDocument.WebNavigationBarSets
O exemplo a seguir retorna o primeiro conjunto de barras de navegação da Web da coleção WebNavigationBarSets .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.Item(1)
O exemplo anterior também pode ser realizado usando WebNavigationBarSets (index), em que o índice é o número do índice, para retornar um objeto WebNavigationBarSet .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1)
O exemplo anterior também pode ser realizado usando WebNavigationBarSets (índice), em que o índice é uma cadeia de caracteres que indica o nome da barra de navegação da Web definida para retornar.
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets("WebNavBarSet1")
Este exemplo exibe o número de conjuntos de barras de navegação da Web no documento atual.
MsgBox ActiveDocument.WebNavigationBarSets.Count
O exemplo a seguir adiciona a barra de navegação chamada WebNavBarSet1 a cada página da publicação atual.
ActiveDocument.WebNavigationBarSets.Item _
("WebNavBarSet1").AddToEveryPage _
Left:=50, Top:=25
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.