Afficher ou masquer le volet de navigation

Vous pouvez définir la propriété IsCollapsed de l’objet NavigationPane pour réduire ou développer le volet de navigation d’un objet Explorer . L’apparence du Volet de navigation change en fonction de la définition de la propriété IsCollapsed et des autres propriétés de l’objet NavigationPane. La propriété DisplayedModuleCount de l’objet NavigationPane détermine le nombre de modules qui peuvent être affichés par le volet de navigation, tandis que les valeurs de propriété Visible et Position de chaque objet NavigationModule déterminent les modules affichés et dans quel ordre.

La définition de la propriété IsCollapsed sur la valeur True réduit le Volet de navigation. Lorsque celui-ci est réduit, il n'affiche que l'icône de chaque module de navigation visible.

La définition de la propriété IsCollapsed sur la valeur False développe le Volet de navigation. Lorsqu’il est développé, le volet de navigation affiche l’icône et le nom du nombre de modules les plus visibles contenus dans la collection NavigationModules de l’objet NavigationPane , spécifié par la propriété DisplayedModuleCount . Tous les modules visibles sont affichés sous forme d'icônes dans la partie inférieure du Volet de navigation.

Par exemple, la collection NavigationModules d'un objet NavigationPane développé pour l'explorateur actif contient huit modules. Tous les modules ont la valeur de propriété Visible True, à l’exception du troisième module de navigation (l’objet Module avec la valeur de la propriété Position définie sur 3.) Si la propriété DisplayedModuleCount a la valeur 4, les icônes et les noms des quatre premiers objets NavigationModule visibles, avec des valeurs de propriété Position de 1, 2, 4 et 5, sont affichés sous forme de grands boutons dans le volet de navigation. Les trois autres objets NavigationModule visibles, aux positions 6, 7 et 8, sont affichés uniquement sous forme d’icônes, sur de petits boutons en bas du volet de navigation. Si la propriété IsCollapsed prend la valeur False, le Volet de navigation réduit affiche les quatre objets NavigationModule visibles sous forme de petites icônes. Les trois autres objets NavigationModule visibles sont disponibles dans le menu déroulant du Volet de navigation. L'exemple ci-dessous s'assure que le Volet de navigation est toujours développé chaque fois qu'un module de navigation sélectionné change, par le biais de la programmation ou de l'intervention de l'utilisateur, en définissant la propriété IsCollapsed sur la valeur False. Il permet d'effectuer les actions suivantes :

1. L’exemple obtient d’abord une référence à l’objet NavigationPane pour l’explorateur actif lorsque l’événement Startup de l’objet Application est déclenché et l’affecte à objPane, afin que l’événement ModuleSwitch de l’objet NavigationPane puisse être détecté.

2. Lorsque l’événement ModuleSwitch du NavigationPane se produit, l’exemple vérifie ensuite si le module de navigation actuel a changé en comparant le contenu du paramètre CurrentModule de l’événement ModuleSwitch à la propriété CurrentModule de l’objet NavigationPane . Si ces références d’objet sont différentes, la propriété IsCollapsed de l’objet NavigationPane prend la valeur False.

Dim WithEvents objPane As NavigationPane 
 
Private Sub Application_Startup() 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
End Sub 
 
Private Sub objPane_ModuleSwitch(ByVal CurrentModule As NavigationModule) 
 
 ' Check if the currently selected navigation module 
 ' has changed. 
 If Not (CurrentModule Is objPane.CurrentModule) Then 
 
 ' Set the IsCollapsed property to 
 ' ensure that the Navigation Pane 
 ' is visible. 
 If Not (objPane Is Nothing) Then 
 objPane.IsCollapsed = False 
 End If 
 End If 
 
End Sub

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.