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

Propriedade OnAction - Aplica-se aos objetos.

• CommandBarButton, CommandBarComboBox, CommandBarControl e CommandBarPopup.

Função.

• Define o nome da rotina que será executada, quando o(a) microsoftiano(a) clicar ou alterar o valor de um controle de barra de comandos.

Sintaxe

• Objeto + ponto + OnAction + = + "Nome da Rotina"

Exemplo.

• Com este exercício, você criará uma Caixa de combinação, na barra de ferramentas Padrão, com opções para ativar planilhas e formulários.
• Abra uma pasta de trabalho...

• ... com 3 planilhas: Plan1, Plan2 e Plan3.

• No Editor do Visual Basic,...

• ... crie um formulário, defina...

• ... Name ( UserForm_Cadastro ) e...

• ... Caption ( Cadastro ).

• Outro UserForm e faça...

• ... Name = UserForm_Parametros,...

• ... Caption = Parâmetros.

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

Módulo1.

• Em...

• ... Módulo1,...

• ... declare CaixaOpcoes como objeto CommandBarComboBox.

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

CriaCaixaOpcoes.

• Com a rotina CriaCaixaOpcoes,...

• ... adicione à...

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

• ... um controle do tipo msoControlComboBox,...

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

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

Caption, AddItem, Style.

• Crie o bloco With CaixaOpcoes...End With e...

• ... digite um ponto para exibir o menu com as propriedades e métodos do controle, que está sendo criado.

• Acesse Caption e...

• ... digite a dica, que será exibida, quando o ponteiro do mouse ficar posicionado sobre a caixa.

• Crie a lista e...

• ... defina o estilo...

• ... com a ajuda da propriedade Style.

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

Tag e Visible.

• Com Tag,...

• ... crie o marcador para o controle.

• E ative-o.

• A rotina, por enquanto, fica assim.

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

Propriedade OnAction.

• Com OnAction,...

• ... você informa qual rotina será executada quando as opções forem selecionadas na lista.

• Crie a rotina,...

• ... o bloco With CaixaOpcoes...End With e...

• ... verifique o valor...

• ... da propriedade ListIndex.

• A bichinha ficará assim.

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

O evento Open de Workbook.

• Em EstaPasta_de_trabalho,...

• ... acesse o objeto Workbook e,...

• ... no evento Open, execute CriaCaixaOpcoes.

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

Salvando.

• Feche o Editor Visual Basic.

• Clique em Salvar,...

• ... escolha o local e...

• ... o nome.

• Tudo ok ?

• Então, microsoftiano(a) inteligente, feche a pasta PropriedadeOnAction.xls.

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

Teste.

• Abra a pasta e...

• ... ative as rotinas.

• A caixa será, corretamente criada com...

• ... a lista definida por você.

• Selecione, por exemplo, Plan3 e...

• ... a planilha será ativada.

• Escolha o nome de um formulário e o código VBA fará o dever de casa.

• Feche o Excel XP e, em seguida,...

• ... reabra-o.
• O controle será excluído.

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