Mudar a Cor de um Botão através do VBA

Olá, Programador! Neste texto quero te mostrar como podemos mudar a cor de um botão através de uma macro do Excel VBA.

A maioria dos desenvolvedores de Excel VBA já perceberam que os botões inseridos em uma planilha através de “Controles de Formulários” são, de certa forma, engessados, com cores e formatos padronizados.

Mas, então, como podemos deixar nossos botões vinculados às macros com uma cara mais profissional?

Para isso, simularemos no nosso exemplo a criação de um botão “Salvar”:

Passo 1 – Mudar a Cor de um Botão com Excel VBA

Primeiramente, no menu superior clique na guia “Inserir”, depois em “Ilustrações”, “Formas” e selecione um quadrado/retângulo.

Em seguida, desenhe o retângulo segurando o botão esquerdo do mouse, o deixando num formato adequado e pinte-o de uma cor de sua preferência.

Passo 2 – Inserindo um ícone na Forma

Como estamos criando um botão “Salvar”, escolheremos um ícone que faça sentido com o nosso objetivo.

Portanto, no menu superior clique em “Inserir”, “Ilustrações” e “Ícones”.

Em seguida, pesquise por “Salvar” e selecione o disquete:.

Desta forma, ajuste o tamanho do disquete para que ele caiba dentro do quadrado/retângulo recém criado.

Nosso botão ficaria mais ou menos assim:

Passo 3 – Atribuindo um nome ao Botão

Agora, clique com o botão esquerdo do mouse no disquete e altere seu texto alternativo para “Bt_Salvar” no retângulo do canto superior à esquerda da Planilha.

Em seguida, aperte a tecla ENTER do teclado.

Neste momento, atribuímos o nome “Bt_Salvar” ao ícone recém criado.

Passo 4 – Alterando a Cor do Ícone

Por fim, suponhamos que o nosso objetivo seria pintar este ícone de laranja cada vez que uma informação fosse modificada em uma determinada planilha.

Desta forma, o código ficaria assim:

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Shapes.Range(Array("Bt_Salvar")).Select

With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 192, 0)
.Transparency = 0
.Solid
End With

End Sub

A linha do código que determina a cor que iremos pintar o nosso ícone é a que contém o RGB (255 , 192 , 0).

Portanto, você pode escolher qualquer combinação de RGB (Sigla para “Red”, “Green” e “Blue”) para pintar seu ícone cada vez que uma informação for modificada na planilha.

+ Como copiar e colar fórmula no Excel

+ Atualizar tabela dinâmica com Excel VBA

+ Salvar planilha em PDF por VBA

Conclusão – Mudar a Cor de um Botão com Excel VBA

A criação de botões customizados no Excel, portanto, dão uma cara mais profissional ao sistema desenvolvido.

Veja, por exemplo, a ficha de produto que criamos em um sistema para a Iogar:

E aí? Precisando de ajuda com Excel? Temos consultores com grande experiência em desenvolvimento para os mais diferentes setores.

Entre em contato clicando aqui e agente uma conversa com um deles.

Abraços!