Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Une collection de tous les objets WebNavigationBarSet dans le document actuel. Chaque objet WebNavigationBarSet représente un ensemble de barres de navigation Web constitué de liens hypertexte.
Remarques
Par défaut, il existe deux objets WebNavigationBarSet sur chaque page de l’Assistant Web. l’un est de type texte uniquement et l’autre est vertical. Ces objets correspondent à la conception de l’Assistant, qu’une barre de navigation soit utilisée ou non sur la page.
Utilisez la propriété WebNavigationBarSets du document actif pour retourner un objet WebNavigationBarSets .
Utilisez Item (index), où index est le numéro d’index, pour retourner un objet WebNavigationBarSet à partir de la collection.
Utilisez la propriété Total pour renvoyer le nombre d’ensembles 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 Gauche, Haut et Largeur de la méthode AddToEveryPage , où Gauche correspond à la distance entre la gauche de la page et le bord gauche de la barre de navigation, Haut est la distance entre le haut de la page et le bord supérieur de la barre de navigation, et Largeur 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 réalisé en utilisant WebNavigationBarSets (index), où index est le numéro d’index, pour retourner 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 la barre de navigation web définie à renvoyer.
Dim objWebNavBarSet As WebNavigationBarSet
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets("WebNavBarSet1")
Cet exemple affiche le nombre de jeux de barres de navigation web dans le document actuel.
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.