Отображение или скрытие области навигации

Можно задать свойство IsCollapsed объекта NavigationPane , чтобы свернуть или развернуть область навигации для объекта Explorer . Внешний вид области навигации меняется в зависимости от параметра свойства IsCollapsed , а также от параметров других свойств объекта NavigationPane . Свойство DisplayedModuleCount объекта NavigationPane определяет количество модулей, которые могут отображаться областью навигации, а значения свойств Visible и Position каждого объекта NavigationModule определяют, какие модули отображаются и в каком порядке.

Если для свойства IsCollapsed задано значение True , область навигации сворачивается. При сворачивании в области навигации отображается только значок для каждого видимого модуля навигации.

Если для свойства IsCollapsed задано значение False , область навигации разворачивается. При развертывании область навигации отображает значок и имя для числа самых верхних видимых модулей, содержащихся в коллекции NavigationModules объекта NavigationPane , заданного свойством DisplayedModuleCount . Все остальные видимые модули отображаются в виде значков в нижней части области навигации.

Например, коллекция NavigationModules развернутого объекта NavigationPane для активного обозревателя содержит восемь модулей. Все модули имеют свойство Visible со значением True, за исключением третьего модуля навигации (объект Module со значением свойства Position , равным 3). Если для свойства DisplayedModuleCount задано значение 4, значки и имена только первых четырех видимых объектов NavigationModule со значениями свойств Position 1, 2, 4 и 5 отображаются в виде больших кнопок в области навигации. Остальные три видимых объекта NavigationModule в позициях 6, 7 и 8 отображаются только в виде значков на небольших кнопках в нижней части области навигации. Если свойство IsCollapsed имеет значение False, свернутая область навигации отображает первые четыре видимых объекта NavigationModule только в виде значков. Остальные три видимых объекта NavigationModule доступны в раскрывающемся меню Области навигации. В следующем примере область навигации всегда развертывается при каждом изменении выбранного модуля навигации программными средствами или действием пользователя, задав для свойства IsCollapsed значение False. В примере выполняются следующие действия:

1. Пример сначала получает ссылку на объект NavigationPane для активного обозревателя при возникновении события Startup объекта Application и назначает его objPane, чтобы можно было обнаружить событие ModuleSwitch объекта NavigationPane .

2. При возникновении события ModuleSwitchэлемента NavigationPane пример проверяет, изменился ли текущий модуль навигации, сравнивая содержимое параметра CurrentModule события ModuleSwitch со свойством CurrentModule объекта NavigationPane . Если эти ссылки на объекты отличаются, свойство IsCollapsed объекта NavigationPane имеет значение 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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.