Notifications
Clear all

Macro Para Colorir um botao quando ele for clicado

5 Posts
1 Usuários
0 Reactions
1,537 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, preciso da ajuda de vcs, tem um formulario com varios botoes CommandButton, gostaria que quando eles fosse clicados eles mudasse de cor, tipo mudasse para roxo com fonte branco, e quando vc clicado de novo voltasse para o padrão. Se alguem puder ajudar fico grato.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/10/2011 2:35 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 
Private Sub CommandButton1_Click()
If Me.CommandButton1.BackColor = &H8000000F Then
        Me.CommandButton1.BackColor = &HFF8080
        Me.CommandButton1.ForeColor = &HFFFFFF
    Else
        Me.CommandButton1.BackColor = &H8000000F
        Me.CommandButton1.ForeColor = &H80000012
End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/10/2011 7:48 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Muito obrigado, funcionou perfeitamente

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/10/2011 10:17 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estando ao alcance disponha. ;)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/10/2011 2:02 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Sotextes

Vc esqueceu de clicar na mãozinha ao lado da ferramenta citar, pontuando o JoseA pela ajuda prestada.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/10/2011 3:05 pm