Objet WebNavigationBarSets (Publisher)
Collection de tous les objets WebNavigationBarSet dans le document actif. Chaque objet WebNavigationBarSet représente un ensemble de barres de navigation web composé de liens hypertexte.
Remarques
Par défaut, il existe deux objets WebNavigationBarSet sur chaque page de l’Assistant web ; l’un est texte uniquement et l’autre est vertical. Ces objets correspondent à la conception de l’Assistant, qu’une barre de navigation soit ou non utilisée sur la page.
Utilisez la propriété WebNavigationBarSets du document actif pour renvoyer un objet WebNavigationBarSets .
Utilisez Item (index), où index est le numéro d’index, pour renvoyer un objet WebNavigationBarSet à partir de la collection.
Utilisez la propriété Count pour renvoyer le nombre de jeux de barres de navigation web dans la collection.
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 correspond à la distance entre la gauche de la page et le bord gauche de la barre de navigation, top est la distance entre le haut de la page et le bord supérieur de la barre de navigation, et Width est la largeur de la barre de navigation.
Exemple
L'exemple suivant définit une variable d'objet à la collection WebNavigationBarSets du document actif.
Dim objWebNavBarSets As WebNavigationBarSets
Set objWebNavBarSets = ActiveDocument.WebNavigationBarSets
L’exemple suivant retourne le premier jeu de barres de navigation web de la collection WebNavigationBarSets .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets.Item(1)
L’exemple précédent peut également être obtenu à l’aide de WebNavigationBarSets (index), où index est le numéro d’index, pour renvoyer un objet WebNavigationBarSet .
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1)
L’exemple précédent peut également être réalisé à l’aide de WebNavigationBarSets (index), où index est une chaîne indiquant le nom de l’ensemble de barres de navigation web à retourner.
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets("WebNavBarSet1")
Cet exemple montre comment afficher le nombre de jeux de barres de navigation web dans le document actif.
MsgBox ActiveDocument.WebNavigationBarSets.Count
L’exemple suivant ajoute la barre de navigation nommée WebNavBarSet1 à chaque page de la composition actuelle.
ActiveDocument.WebNavigationBarSets.Item _
("WebNavBarSet1").AddToEveryPage _
Left:=50, Top:=25
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.