Partager via

Objet WebNavigationBarSet (Publisher)

  • Article

Représente un ensemble de barres de navigation web pour le document actif. L’objet WebNavigationBarSet est membre de la collection WebNavigationBarSets , qui inclut tous les jeux de barres de navigation web du document actif.

Remarques

Pour ajouter la barre de navigation web spécifiée à chaque page d’un document, utilisez les paramètres Left, Top et Width de la méthode AddToEveryPage , où Left est la position du bord gauche de la forme, Top est la position du bord supérieur de la forme et Width est la largeur de la forme représentant l’ensemble de barres de navigation web.

Pour supprimer l’ensemble de barres de navigation web et chaque instance de celui-ci d’un document, utilisez la méthode DeleteSetAndInstances .

Les éléments suivants concernent les barres de navigation web orientées horizontalement :

  • Utilisez la propriété IsHorizontal pour déterminer l’orientation du jeu de barres de navigation.
  • Utilisez la méthode ChangeOrientation pour définir l’orientation de l’ensemble de barres de navigation web.
  • Si l’orientation est définie sur horizontale, vous pouvez définir les propriétés HorizontalAlignment et HorizontalButtonCount .

Exemple

L’exemple suivant ajoute le premier jeu de barres de navigation web à chaque page dont la méthode AddToEveryPage a la valeur True lors de l’ajout de la page, ou la propriété WebPageOptions.IncludePageOnNewWebNavigationBars définie sur True.

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

L'exemple suivant supprime toutes les instances de chaque objet WebNavigationBarSet de la collection WebNavigationBarSets.

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

L’exemple suivant ajoute la première barre de navigation de la collection WebNavigationBarSets du document actif à chaque page dont la méthode AddToEveryPage a la valeur True ou la propriété IncludePageOnNewWebNavigationBars définie sur True, puis définit le style de bouton sur Petit. Un test est effectué pour déterminer si la barre de navigation définie est horizontale. S'il n'est pas le cas, la méthode ChangeOrientation est appelée et que l'orientation est définie à l'horizontale. Une fois la barre de navigation orientée horizontalement, est défini à 3 le nombre de boutons horizontaux et l'alignement horizontal des boutons est défini à gauche.

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éthodes

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.