Поделиться через

Перечисление, отображение, скрытие и положение модулей в области навигации

  • Статья

Свойство NavigationModules объекта NavigationPane в Microsoft Outlook предоставляет доступ к модулям навигации, содержащимся в области навигации. Используйте метод Item для перечисления объектов NavigationModule , содержащихся в коллекции, так как метод Item является свойством по умолчанию и свойством индексатора для коллекции NavigationModules . Свойство CurrentModule определяет, какой объект NavigationModule в настоящее время выбран в области навигации.

Кроме того, каждый объект NavigationModule предоставляет несколько свойств, которые можно использовать для отображения, скрытия или изменения положения отображения модулей в области навигации:

  • Свойство Visible определяет, может ли объект NavigationModule отображаться в области навигации.

  • Свойство Position определяет порядковый номер объекта NavigationModule при отображении в области навигации.

Свойство DisplayedModuleCount объекта NavigationPane определяет количество видимых объектов NavigationModule , которые могут отображаться в области навигации. Если свойство Visible объекта NavigationModule имеет значение False или свойство Position объекта NavigationModule задано таким образом, что модуль не попадает в число видимых объектов NavigationModule , которые могут отображаться в области навигации, модуль не отображается. Следующие примеры кода в Microsoft Visual Basic для приложений (VBA) состоят из MoveCurrentModuleToTop процедур и MakeAllModulesVisible . Процедура MoveCurrentModuleToTop использует свойство CurrentModule объекта NavigationPane для получения выбранного объекта NavigationModule и задает свойству Position этого объекта NavigationModule значение 1, что делает его самым верхним отображаемым модулем в области навигации. Процедура MoveCurrentModuleToTop перечисляет коллекцию Modules объекта NavigationPane , устанавливая для свойства Visible каждого объекта NavigationModule , содержащегося в коллекции, значение True. Наконец, он задает для свойства DisplayedModuleCount объекта NavigationPane значение свойства Count коллекции NavigationModules для объекта NavigationPane , гарантируя, что каждый модуль навигации, содержащийся в области навигации, будет виден пользователю.

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

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

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