Partager via

Énumérer, afficher, masquer et positionner des modules dans le volet de navigation

  • Article

La propriété NavigationModules de l’objet NavigationPane dans Microsoft Outlook permet d’accéder aux modules de navigation contenus dans le volet de navigation. Utilisez la méthode Item pour énumérer les objets NavigationModule contenus dans la collection, car la méthode Item est à la fois la propriété par défaut et la propriété d’indexeur de la collection NavigationModules . La propriété CurrentModule détermine l’objet NavigationModule actuellement sélectionné dans le volet de navigation.

De même, chaque objet NavigationModule fournit plusieurs propriétés qui peuvent être utilisées pour afficher, masquer ou modifier la position d’affichage des modules dans le Volet de navigation :

  • La propriété Visible détermine si un objet NavigationModule peut être affiché dans le volet de navigation.

  • La propriété Position détermine la position ordinale d’un objet NavigationModule lorsqu’il est affiché dans le volet de navigation.

La propriété DisplayedModuleCount de l’objet NavigationPane détermine le nombre d’objets NavigationModule visibles qui peuvent être affichés par le volet de navigation. Si la propriété Visible d’un objet NavigationModule est défini sur la valeur False, ou si la propriété Position de l’objet NavigationModule est définie de sorte que le module ne soit pas compris dans le nombre d’objets NavigationModule visibles, qui peuvent être affichés dans le Volet de navigation, le module n’est pas affiché. Les exemples de code suivants dans Microsoft Visual Basic pour Applications (VBA) comprennent les MoveCurrentModuleToTop procédures et MakeAllModulesVisible . La MoveCurrentModuleToTop procédure utilise la propriété CurrentModule de l’objet NavigationPane pour récupérer l’objet NavigationModule actuellement sélectionné et définit la propriété Position de cet objet NavigationModule sur 1, ce qui en fait le module le plus affiché dans le volet de navigation. La MoveCurrentModuleToTop procédure énumère la collection Modules de l’objet NavigationPane , en définissant la propriété Visible de chaque objet NavigationModule contenu dans la collection sur True. Il définit enfin la propriété DisplayedModuleCount de l’objet NavigationPane sur la valeur de la propriété Count de la collection NavigationModules pour l’objet NavigationPane , garantissant ainsi que chaque module de navigation contenu dans le volet de navigation est visible par l’utilisateur.

Private Sub MoveCurrentModuleToTop() 
 
 Dim objPane As NavigationPane 
 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
 
 ' Set the Position property of the currently selected 
 ' module to 1, making it the topmost module displayed 
 ' in the Navigation Pane. 
 objPane.CurrentModule.Position = 1 
End Sub 
 
Private Sub MakeAllModulesVisible() 
 
 Dim objPane As NavigationPane 
 Dim objModule As NavigationModule 
 
 ' Get the NavigationPane object for the 
 ' currently displayed Explorer object. 
 Set objPane = Application.ActiveExplorer.NavigationPane 
 
 ' This loop enumerates through the Modules collection, 
 ' setting the Visible property of each module to True. 
 For Each objModule In objPane.Modules 
 objModule.Visible = True 
 Next 
 
 ' Set the DisplayedModuleCount property to 
 ' display all modules contained by the 
 ' Navigation Pane. 
 objPane.DisplayedModuleCount = objPane.Modules.count 
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.