Ein- oder Ausblenden des Navigationsbereichs

Sie können die IsCollapsed-Eigenschaft des NavigationPane-Objekts so festlegen, dass der Navigationsbereich für ein Explorer-Objekt reduziert oder erweitert wird. Die Darstellung des Navigationsbereichs ändert sich je nach der Einstellung der IsCollapsed-Eigenschaft sowie nach den Einstellungen anderer Eigenschaften des NavigationPane-Objekts. Die DisplayedModuleCount-Eigenschaft des NavigationPane-Objekts bestimmt die Anzahl der Module, die vom Navigationsbereich angezeigt werden können, während die Werte der Visible - und Position-Eigenschaft jedes NavigationModule-Objekts bestimmen, welche Module in welcher Reihenfolge angezeigt werden.

Wenn die IsCollapsed-Eigenschaft auf True festgelegt wird, wird der Navigationsbereich reduziert. Wenn der Navigationsbereich reduziert ist, werden nur die Symbole für die einzelnen sichtbaren Navigationsmodule angezeigt.

Wenn die IsCollapsed-Eigenschaft auf False festgelegt wird, wird der Navigationsbereich erweitert. Wenn der Navigationsbereich erweitert ist, werden das Symbol und der Name für die Anzahl der obersten sichtbaren Module angezeigt, die in der NavigationModules-Auflistung des NavigationPane-Objekts enthalten sind, angegeben durch die DisplayedModuleCount-Eigenschaft . Alle anderen sichtbaren Module werden im unteren Bereich des Navigationsbereichs als Symbole angezeigt.

Beispiel: Die NavigationModules-Sammlung eines erweiterten NavigationPane-Objekts für den aktiven Explorer enthält acht Module. Alle Module haben den Wert der Visible-Eigenschafttrue, mit Ausnahme des dritten Navigationsmoduls (das Module-Objekt mit dem Wert der Position-Eigenschaft , der auf 3 festgelegt ist).) Wenn die DisplayedModuleCount-Eigenschaft auf 4 festgelegt ist, werden nur die Symbole und Namen der ersten vier sichtbaren NavigationModule-Objekte mit den Position-Eigenschaftswerten 1, 2, 4 und 5 als große Schaltflächen im Navigationsbereich angezeigt. Die verbleibenden drei sichtbaren NavigationModule-Objekte an den Positionen 6, 7 und 8 werden nur als Symbole auf kleinen Schaltflächen am unteren Rand des Navigationsbereichs angezeigt. Wenn für die IsCollapsed-Eigenschaft False festgelegt ist, werden im reduzierten Navigationsbereich die ersten vier sichtbaren NavigationModule-Objekte als Symbole angezeigt. Die restlichen drei sichtbaren NavigationModule-Objekte sind im Dropdownmenü des Navigationsbereichs verfügbar. Im folgenden Beispiel wird sichergestellt, dass der Navigationsbereich immer erweitert ist, wenn sich das ausgewählte Navigationsmodul entweder programmgesteuert oder durch Benutzereingriff durch Festlegen der IsCollapsed-Eigenschaft auf False ändert. Im Beispiel werden die folgenden Aktionen ausgeführt:

1. Im Beispiel wird zunächst eine Referenz auf das NavigationPane -Objekt für den aktiven Explorer abgerufen, wenn das Startup -Ereignis des Application -Objekts aufgerufen wurde, und dem objPane-Code hinzugefügt, sodass das ModuleSwitch -Ereignis des NavigationPane -Objekts erkannt werden kann.

2. Wenn das ModuleSwitch-Ereignis der NavigationPane auftritt, überprüft das Beispiel, ob das aktuelle Navigationsmodul geändert wurde, indem der Inhalt des CurrentModule-Parameters des ModuleSwitch-Ereignisses mit der CurrentModule-Eigenschaft des NavigationPane-Objekts verglichen wird. Wenn diese Objektreferenzen unterschiedliche sind, wird für die IsCollapsed -Eigenschaft des NavigationPane -Objekts False festgelegt.

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

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.