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

CommandBarButton - O objeto.

• Representa um botão de comando na barra de comandos ( barra de menus, barra de ferramentas ou menu pop-up ).

Propriedades.

• Application, BeginGroup, BuiltIn, BuiltInFace, Caption, Creator, DescriptionText, Enabled, FaceId, Height, HelpContextId, HelpFile, HyperlinkType, Id, Index, IsPriorityDropped, Left, Mask, OLEUsage, OnAction, Parameter, Parent, Picture, Priority, ShortcutText, State, Style, Tag, TooltipText, Top, Type, Visible e Width.

Métodos.

• Copy, CopyFace, Delete, Execute, Move, PasteFace, Reset e SetFocus.

Eventos.

• Click.

Exemplo.

• Você criou um aplicativo no Excel XP e deseja inserir, na barra de ferramentas Padrão, um botão específico para a planilha. Ele pode, por exemplo, ativar formulários, imprimir gráficos, exibir as coxas da sua sogra, enfim, aí é com você.
• Você deseja também que o botão seja excluído, quando o aplicativo for fechado.
• Ok, internauta microsoftiano(a), siga-me.

• Abra uma pasta vazia.

• Clique em Salvar,...

• ... defina o local e...

• ... o nome.

• Vamos então criar um formulário para validar o nosso exemplo.

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

O formulário.

• Abra o Editor VBA.

• Insira um objeto UserForm com...

• ... Name = UserForm_Cadastro e...

• ... Caption = ao nome que você quiser.

• Em seguida, crie o módulo para...

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

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

O controle CommandBarButton - 01.

• Declare a variável BotaoFormulario e...

• ... o tipo ( CommandBarButton ).

• Em Sub CriaBotaoFormulario,...

• ... utilize o método Add para criar...

• ... um novo objeto na coleção de controles...

• ... da barra de ferramentas Padrão.

• O tipo do controle ? msoControlButton. No bom e sarado Português, Botão de comando.

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

O controle CommandBarButton - 02: A propriedade Caption.

• Com With BotaoFormulario,...

• ... acesse as propriedades e métodos do controle que está sendo criado.

• Com Caption,...

• ... defina o texto de face.

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

O controle CommandBarButton - 03: Style e Tag.

• Com Style,...

• ... o tipo do controle.

• Com Tag,...

• ... crie um marcador, para acessá-lo posteriormente de forma mais fácil.

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

O controle CommandBarButton - 04: Método OnAction e propriedade Visible.

• Com OnAction,...

• ... defina o quê será executado, quando o botão for clicado.

• E com Visible, exiba o botão.

• CriaBotaoFormulario fica assim.

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

Excluindo o controle.

• Quando a pasta de trabalho for fechada, o controle deve ser excluído.

• Declare a variável Botao como objeto CommandBarControl.

• Pesquise cada controle...

• ... da coleção de controles da...

• ... barra de ferramentas Padrão.

• Se o marcador ( propriedade Tag ) de Botão for...

• ... UserForm_Cadastro ( ou o que você definiu ),...

• ... exclua o controle.

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

Propriedade OnAction = ação do controle.

• Crie a rotina para...

• ... exibir o formulário.

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

Workbook, Open e BeforeClose.

• Clique 2 vezes em EstaPasta_de_trabalho.

• Na janela Objeto,...

• ... selecione Workbook.

• No evento Open, execute CriaBotaoFormulario.

• Na janela Procedimento,...

• ... selecione BeforeClose e...

• ... delete o botão.

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

Teste - I.

• Salve o código,...

• ... feche a janela do Editor e...

• ... a pasta.

• Reabra-a.

• Clique em Ativar macros e...

• ... o botão será criado.

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

Teste - 02.

• Clique no controle e...

• ... o formulário será exibido.

• Feche o UserForm.

• Feche a pasta Excel e...

• ... o botão será excluído.

• Parabéns !!

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