Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA
 

 Realce de botões

Ir para baixo 
2 participantes
AutorMensagem
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Realce de botões Empty
MensagemAssunto: Realce de botões   Realce de botões EmptySeg Abr 16, 2012 9:24 pm
Mais uma vez solicitado a ajuda...
Desta vez gostaria de saber, se possível, como se faz para que ao passar o mouse sobre um botão de ação de uma Macro, e também quando clicar neste, o botão seja realçado. O propósito é mostrar que aquele botão está sendo acionado.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Realce de botões Empty
MensagemAssunto: Re: Realce de botões   Realce de botões EmptyTer Abr 17, 2012 3:20 am
Boa noite!!

Exemplo parecido ...

Código:
Private Sub CommandButton1_Enter()
Call ChangeBtnColor
End Sub

Private Sub CommandButton1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call ChangeBtnColor
End Sub

Private Sub CommandButton2_Enter()
Call ChangeBtnColor
End Sub

Private Sub CommandButton2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call ChangeBtnColor
End Sub

Private Sub CommandButton3_Enter()
Call ChangeBtnColor
End Sub

Private Sub CommandButton3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call ChangeBtnColor
End Sub

Private Sub ChangeBtnColor()
'Exit Sub
Dim obj As Object

Set obj = UserForm1.ActiveControl

If obj.Name Like "Comm*" Then 'Is it a commandbutton
If obj.BackColor = &HFF& Then 'Is it Red
obj.BackColor = &H8000000F 'Change to default color
Else
obj.BackColor = &HFF& 'Change to Red
End If
End If
Set obj = Nothing
End Sub
Ir para o topo Ir para baixo
Mitterrand




Mensagens : 36
Data de inscrição : 03/02/2012

Realce de botões Empty
MensagemAssunto: Re: Realce de botões   Realce de botões EmptyQua Abr 25, 2012 5:15 am
Não consegui fazer!
Teria uma maneira mais fácil de compreender?
Imagine que tem uma botão que copia o conteúdo de uma célula e leva para outra. Gostaria que esse botão ficasse em cor e/ou relevo diferente ao ser acionado.


alexandrevba escreveu:
Boa noite!!

Exemplo parecido ...

Código:
Private Sub CommandButton1_Enter()
Call ChangeBtnColor
End Sub

Private Sub CommandButton1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call ChangeBtnColor
End Sub

Private Sub CommandButton2_Enter()
Call ChangeBtnColor
End Sub

Private Sub CommandButton2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call ChangeBtnColor
End Sub

Private Sub CommandButton3_Enter()
Call ChangeBtnColor
End Sub

Private Sub CommandButton3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call ChangeBtnColor
End Sub

Private Sub ChangeBtnColor()
'Exit Sub
Dim obj As Object

Set obj = UserForm1.ActiveControl

If obj.Name Like "Comm*" Then 'Is it a commandbutton
If obj.BackColor = &HFF& Then 'Is it Red
obj.BackColor = &H8000000F 'Change to default color
Else
obj.BackColor = &HFF& 'Change to Red
End If
End If
Set obj = Nothing
End Sub
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Realce de botões Empty
MensagemAssunto: Re: Realce de botões   Realce de botões EmptySex Abr 27, 2012 2:39 pm
Bom dia!!
Tente adaptar...
Código:
Private Sub CommandButton1_Enter()
Call ChangeBtnColor

Seu_Código_de_Copiar_e_Colar

End Sub



Private Sub ChangeBtnColor()
'Exit Sub
Dim obj As Object

Set obj = UserForm1.ActiveControl

If obj.Name Like "Comm*" Then 'Is it a commandbutton
If obj.BackColor = &HFF& Then 'Is it Red
obj.BackColor = &H8000000F 'Change to default color
Else
obj.BackColor = &HFF& 'Change to Red
End If
End If
Set obj = Nothing
End Sub
Ir para o topo Ir para baixo
Conteúdo patrocinado





Realce de botões Empty
MensagemAssunto: Re: Realce de botões   Realce de botões Empty
Ir para o topo Ir para baixo
 
Realce de botões
Ir para o topo 
Página 1 de 1

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: