Botões do tipo toggle são úteis quando desejamos ativar ou desativar algo em nossa pasta. Vamos supor por exemplo que desejamos esconder as guias das planilhas..

O processo é um pouco lento pois precisamos ir até Ferramentas à Opções e depois selecionar a opção que desejamos. Com um botão do tipo toggle podemos fazer exatamente isso facilitando o nosso trabalho enormemente.

No tópico anterior, tivemos que criar uma classe para lidar com os eventos. Aqui, teremos que fazer a mesma coisa. O que acontece é que se mudarmos de uma pasta onde as guias estão escondidas para uma onde elas não estão, sem uma classe para lidar com o evento de mudança de uma pasta para outra o botão toggle não refletirá a mudança e permanecerá “ticado” ou não. A figura abaixo mostra um exemplo de botão toggle:

Figura 0‑26

Novamente, iremos iniciar pela classe que lidará com os seguintes eventos:

• Ativação da planilha
• Ativação da pasta
• Ativação da janela

Como cada planilha dentro de uma pasta pode ter as guias ativas ou não, precisamos ter certeza que quando mudamos de planilha o estado do botão toggle também muda. O mesmo vale para a pasta de trabalho quando uma nova pasta é adicionada, por exemplo.

A ativação da janela é outro evento, pois podemos estar trabalhando em pastas diferentes as quais acessamos conforme desenvolvemos o trabalho. Os eventos aqui são mais fáceis do que os do tópico anterior:

O primeiro evento diz respeito a ativação da planilha (worksheet). O segundo é o evento da pasta (workbook) e o terceiro é o evento conjunto da janela (window) e da pasta (workbook). Com os eventos definidos, podemos construir o módulo que criará o menu:

Como pode ser observado a construção do menu é idêntica as anteriores. Precisamos agora construir a macro “guias” que é chamada quando clicamos no botão:

Esta sub-rotina checa primeiramente se o tipo é uma planilha. Se sim, checamos o estado das guias. Vamos supor que mostrar a guia (DisplayWorkbookTabs) seja falso (false). No código acima estamos invertendo este valor, pois após o clique o DisplayWorkbookTabs deve assumir o valor verdadeiro. Como não sabemos de antemão qual é o estado das guias, utilizamos o estado atual das guias para definir o novo estado.

A função Not no VBA, assim como na planilha, é utilizada para inverter o valor Boolean de um expressão. Em outras palavras, se o valor é verdadeiro (true) a função Not retorna falso (false) e vice-versa. No próxima sub-rotina, isso deve ficar mais claro.

Resolvida a sub-rotina anterior, chamamos a sub-rotina que mostrará ou esconderá as guias:

Observe como a construção do Not tem um significado literal: If not true (se não for verdadeiro) Then (então). Em outras palavras, se ActiveWindow.DisplayWorkbookTabs for falso (false), então o estado do botão toggle é msoButtonUp. Por outro lado, se ActiveWindow.DisplayWorkbookTabs for verdadeiro (true) o estado do botão é msoButtonDown. Esta mesma construção poderia ter sido:

Porém, com a segunda opção acrescentamos linhas extras de código desnecessárias. O trabalho final para o botão toggle:

Figura 0-3