Compartilhar via

Enumerar, mostrar, ocultar e posicionar módulos no painel de navegação

  • Artigo

A propriedade NavigationModules do objeto NavigationPane no Microsoft Outlook fornece acesso aos módulos de navegação contidos pelo Painel de Navegação. Use o método Item para enumerar os objetos NavigationModule contidos pela coleção, pois o método Item é a propriedade padrão e a propriedade indexador da coleção NavigationModules . A propriedade CurrentModule determina qual objeto NavigationModule está selecionado atualmente no Painel de Navegação.

Além disso, cada objeto NavigationModule fornece várias propriedades que podem ser usadas para mostrar, ocultar ou alterar a posição de exibição dos módulos no Painel de Navegação:

  • A propriedade Visible determina se um objeto NavigationModule pode ser exibido no Painel de Navegação.

  • A propriedade Position determina a posição ordinal de um objeto NavigationModule quando exibido no Painel de Navegação.

A propriedade DisplayedModuleCount do objeto NavigationPane determina o número de objetos NavigationModule visíveis que podem ser exibidos pelo Painel de Navegação. Se a propriedade Visible de um objeto NavigationModule for definida como False ou se a propriedade Position o objeto NavigationModule for definida de forma que o módulo esteja dentro do número de objetos NavigationModule visíveis que podem ser exibidos no Painel de Navegação, o módulo não será exibido. Os exemplos de código a seguir no VBA (Microsoft Visual Basic for Applications) consistem nos MoveCurrentModuleToTop procedimentos eMakeAllModulesVisible. O MoveCurrentModuleToTop procedimento usa a propriedade CurrentModule do objeto NavigationPane para recuperar o objeto NavigationModule selecionado no momento e define a propriedade Position desse objeto NavigationModule como 1, tornando-o o módulo mais exibido no Painel de Navegação. O MoveCurrentModuleToTop procedimento enumera a coleção Modules do objeto NavigationPane , definindo a propriedade Visible de cada objeto NavigationModule contido na coleção como True. Ele finalmente define a propriedade DisplayedModuleCount do objeto NavigationPane como o valor da propriedade Count da coleção NavigationModules para o objeto NavigationPane , garantindo que todos os módulos de navegação contidos no Painel de Navegação sejam visíveis para o usuário.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.