Desenvolvimento e Consultoria em VBA Excel Access

Incluir e Alterar cor do Botão de Comando

Como incluir um botão de comando na planilha e alterar sua cor ao clicar.

Baixar Exemplo

-Tecle Alt + F11, a janela do Visual Basic será aberta, Em seguida

-click com o botão direito do mouse sobre a janela do Projeto

-Click em Inserir

-Click em Módulo

Cole o código de exemplo abaixo

Sub Botao_Exemplo_Clique()

If Worksheets("Principal").Shapes("Botao_Exemplo").Fill.ForeColor.SchemeColor = 3 Then

Worksheets("Principal").Shapes("Botao_Exemplo").Fill.ForeColor.SchemeColor = 2

Else

Worksheets("Principal").Shapes("Botao_Exemplo").Fill.ForeColor.SchemeColor = 3

EndIf

End Sub