Mostrar ou ocultar o painel de navegação

Você pode definir a propriedade IsCollapsed do objeto NavigationPane para entrar em colapso ou expandir o Painel de Navegação para um objeto Explorer . A aparência do Painel de Navegação é alterada dependendo da definição da propriedade IsCollapsed, bem como da definição de outras propriedades do objeto NavigationPane. A propriedade DisplayedModuleCount do objeto NavigationPane determina o número de módulos que podem ser exibidos pelo Painel de Navegação, enquanto os valores de propriedade Visible e Position de cada objeto NavigationModule determinam quais módulos são exibidos e em que ordem.

A definição da propriedade IsCollapsed como True recolhe o Painel de Navegação. Quando recolhido, o Painel de Navegação exibe apenas o ícone de cada módulo de navegação visível.

A definição da propriedade IsCollapsed como False expande o Painel de Navegação. Quando expandido, o Painel de Navegação exibe o ícone e o nome do número de módulos visíveis mais altos contidos na coleção NavigationModules do objeto NavigationPane , especificado pela propriedade DisplayedModuleCount . Todos os outros módulos visíveis são exibidos como ícones na parte inferior do Painel de Navegação.

Por exemplo, a coleção NavigationModules de um objeto NavigationPane expandido para o explorer ativo contém oito módulos. Todos os módulos têm um valor de propriedade Visible de True, com exceção do terceiro módulo de navegação (o objeto Module com o valor da propriedade Position definido como 3.) Se a propriedade DisplayedModuleCount for definida como 4, os ícones e nomes dos quatro primeiros objetos NavigationModule visíveis, com valores de propriedade Position de 1, 2, 4 e 5, serão exibidos como botões grandes no Painel de Navegação. Os três objetos NavigationModule visíveis restantes, nas posições 6, 7 e 8, são exibidos apenas como ícones, em botões pequenos na parte inferior do Painel de Navegação. Se a propriedade IsCollapsed estiver definida como False, o Painel de Navegação recolhido exibirá os primeiros quatro objetos NavigationModule visíveis como ícones. Os outros três objetos NavigationModule visíveis estarão disponíveis no menu suspenso do Painel de Navegação. O exemplo a seguir garante que o Painel de Navegação seja expandido sempre que o módulo de navegação selecionado atualmente for alterado, de forma programática ou pela ação do usuário, definindo a propriedade IsCollapsed como False. O exemplo executa as seguintes ações:

1. O exemplo primeiro obtém uma referência ao objeto NavigationPane para o explorador ativo quando o evento Inicialização do objeto Application é gerado e o atribui a , para objPaneque o evento ModuleSwitch do objeto NavigationPane possa ser detectado.

2. Quando ocorre o evento ModuleSwitch do NavigationPane , o exemplo verifica se o módulo de navegação atual foi alterado comparando o conteúdo do parâmetro CurrentModule do evento ModuleSwitch com a propriedade CurrentModule do objeto NavigationPane . Se essas referências de objeto forem diferentes, a propriedade IsCollapsed do objeto NavigationPane será definida como 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

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.