Auflisten, Einblenden, Ausblenden und Positionieren von Modulen im Navigationsbereich

Die NavigationModules-Eigenschaft des NavigationPane-Objekts in Microsoft Outlook ermöglicht den Zugriff auf die Navigationsmodule, die im Navigationsbereich enthalten sind. Verwenden Sie die Item-Methode , um die navigationModule-Objekte aufzulisten, die in der Auflistung enthalten sind, da die Item-Methode sowohl die Standardeigenschaft als auch die Indexereigenschaft für die NavigationModules-Auflistung ist. Die CurrentModule-Eigenschaft bestimmt, welches NavigationModule-Objekt derzeit im Navigationsbereich ausgewählt ist.

Zudem stellt jedes NavigationModule-Objekt mehrere Eigenschaften bereit, mit deren Hilfe Module im Navigationsbereich eingeblendet oder ausgeblendet bzw. die Anzeigeposition von Modulen im Navigationsbereich geändert werden kann:

• Die Visible -Eigenschaft bestimmt, ob ein NavigationModule -Objekt im Navigationsbereich angezeigt werden kann.

• Die Position -Eigenschaft bestimmt die ordinale Position eines NavigationModule -Objekts bei der Anzeige im Navigationsbereich.

Die DisplayedModuleCount -Eigenschaft des NavigationPane -Objekts bestimmt die Anzahl sichtbarer NavigationModule -Objekte, die im Navigationsbereich angezeigt werden können. Wenn für die Visible-Eigenschaft eines NavigationModule-Objekts False festgelegt ist, oder wenn die Position-Eigenschaft des NavigationModule-Objekts so festgelegt wurde, dass das Modul nicht innerhalb der Anzahl sichtbarer NavigationModule-Objekte, die im Navigationsbereich angezeigt werden können, liegt, wird das Modul nicht angezeigt. Die folgenden Codebeispiele in Microsoft Visual Basic for Applications (VBA) bestehen aus den MoveCurrentModuleToTop Prozeduren und MakeAllModulesVisible . Die MoveCurrentModuleToTop Prozedur verwendet die CurrentModule-Eigenschaft des NavigationPane-Objekts , um das aktuell ausgewählte NavigationModule-Objekt abzurufen, und legt die Position-Eigenschaft dieses NavigationModule-Objekts auf 1 fest, sodass es das oberste angezeigte Modul im Navigationsbereich ist. Die MoveCurrentModuleToTop Prozedur listet die Modules-Auflistung des NavigationPane-Objekts auf und legt die Visible-Eigenschaft jedes navigationModule-Objekts , das in der Auflistung enthalten ist, auf True fest. Schließlich legt er die DisplayedModuleCount -Eigenschaft des NavigationPane -Objekts auf den Wert der Count -Eigenschaft der NavigationModules -Sammlung für das NavigationPane -Objekt fest und stellt sicher, dass alle im Navigationsbereich enthaltenen Navigationsmodule für den Benutzer sichtbar sind.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.