Compartir a través de

Objeto WebNavigationBarSet (Publisher)

Representa una barra de navegación web establecida para el documento actual. El objeto WebNavigationBarSet es miembro de la colección WebNavigationBarSets , que incluye todos los conjuntos de barras de navegación web del documento actual.

Observaciones

Para agregar la barra de navegación web especificada a cada página de un documento, use los parámetros Left, Top y Width del método AddToEveryPage , donde Left es la posición del borde izquierdo de la forma, Top es la posición del borde superior de la forma y Width es el ancho de la forma que representa el conjunto de barras de navegación web.

Para quitar el conjunto de barras de navegación web y todas las instancias de él de un documento, use el método DeleteSetAndInstances .

El siguiente problema se refiere a las barras de navegación web orientadas horizontalmente:

  • Utilice la propiedad IsHorizontal para determinar la orientación del conjunto de barras de navegación.
  • Use el método ChangeOrientation para establecer la orientación del conjunto de barras de navegación web.
  • Si la orientación se establece en horizontal, puede establecer las propiedades HorizontalAlignment y HorizontalButtonCount .

Ejemplo

En el ejemplo siguiente se agrega la primera barra de navegación web establecida en cada página que tiene el método AddToEveryPage establecido en True al agregar la página o la propiedad WebPageOptions.IncludePageOnNewWebNavigationBars establecida en True.

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

En el siguiente ejemplo elimina todas las instancias de cada objeto WebNavigationBarSet de la colección WebNavigationBarSets.

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

En el ejemplo siguiente se agrega la primera barra de navegación de la colección WebNavigationBarSets del documento activo a cada página que tiene el método AddToEveryPage establecido en True, o la propiedad IncludePageOnNewWebNavigationBars establecida en True y, a continuación, establece el estilo de botón en pequeño. Se realiza una prueba para determinar si el conjunto de barras de navegación es horizontal. Si no es así, se llama al método ChangeOrientation y se establece la orientación en horizontal. Tras orientar horizontalmente la barra de exploración, el número de botones horizontales se establece en 3 y se establece la alineación horizontal de los botones a la izquierda.

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

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

  • Last updated on