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.

Comentarios

Para agregar la barra de navegación web especificada a todas las páginas de un documento, use los parámetros Izquierda, Superior y Ancho del método AddToEveryPage , donde Izquierda es la posición del borde izquierdo de la forma, Superior es la posición del borde superior de la forma y Ancho 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 cada instancia de un documento, use el método DeleteSetAndInstances .

Las siguientes se refieren a las barras de navegación web orientadas horizontalmente:

  • Use 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 de la barra de navegación web establecida.
  • 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 tenga el método AddToEveryPage establecido en TRUE o la propiedad IncludePageOnNewWebNavigationBars establecida en TRUE y, después, el estilo del 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