SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

CommandBarControls.

• Uma coleção de objetos CommandBarControl, que representam os controles ( botões, menus popup, caixas de combinação ) em uma barra de comandos.

Propriedades.

• Application, Count, Creator, Item e Parent.

Método.

• Add.

Exercício.

• Abra uma pasta e o...

• ... Editor do Visual Basic.

• Insira um Módulo...

• ... para receber a programação VBA.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exercício: A rotina AdicionaBotao.

• Crie a variável Botao do tipo CommandBarControl.

• Em AdicionaBotao,...

• ... acesse a coleção de controles da barra Padrão e...

• ... adicione...

• ... um botão ( Type:=msoControlButton )...

• ... temporário ( Temporary:=True ).

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exercício: O evento Open do objeto Workbook.

• Na janela Projeto, clique 2 vezes em EstaPasta_de_trabalho.

• Em Objeto,...

• ... acesse Workbook.

• No evento Open,...

• ... execute a rotina AdicionaBotao.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

Exercício: Teste.

• Feche a tela do Editor VBA e...

• ... salve a...

• ... pasta de trabalho.

• Tudo ok ? Então,...

• ... feche Colecao_CommandBarControls.xls.

• Em seguida, abra-a, novamente, e...

• ... clique em Ativar macros.

• Um botão vazio será adicionado à coleção CommandBarControls da barra de ferramentas Padrão.

• Encerre o Excel XP e, em seguida, reabra-o.

• O que aconteceu ?
• O botão temporário foi excluído.

• E por que ? Simples, microsoftiano(a). Porque você definiu o parâmetro Temporário do controle criado igual a True.

• Controles temporários são excluídos, automaticamente, quando o Excel XP é fechado.

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta