Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel vba planilha userform objetos labels movemouse

Excel vba planilha userform objetos labels movemouse

E-mail Imprimir PDF

Escola Saberexcel VBA Estudos - Treinamentos com Macros, Fórmulas e Funções

E
sses procedimentos do aplicativo Microsoft Excel VBA(Visual Basic Application), objetos userforms e Labels, frame, que mudam de cores
afetados pelo evento Mouse_Mouse.
Espero que gostem do exemplo, que possa lhe ser útil. Fique com Deus,
   Expedito Marcondes -  Curso Microsoft Excel VBA - vídeos de Treinamento Microsoft Excel VBA


'- - - - - - - - - - - - - - - - - - -'
Private Sub Frame1_MouseDown
(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 For Each Control In Frame1.Controls
     Control.BorderStyle = 0
     Control.ForeColor = &H0&
Next Control
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Frame1.BorderStyle = 1
For Each Control In Frame1.Controls
   Control.BorderStyle = 0
Next Control
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label1_Click()
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
   ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Label1.BorderStyle = 1
 Frame1.Caption = "Selecionou Macros"
 Frame1.ForeColor = &HFF&
 Label1.ForeColor = &HFF0000
 Label2.ForeColor = &H80000012
 Label3.ForeColor = &H80000012
 Label4.ForeColor = &H80000012
 UserForm1.Caption = "Aprenda tudo sobre Fórmulas  - Escola SaberExcel"
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label2_MouseMove
(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Label2.BorderStyle = 1
 Label2.ForeColor = &HFF0000
 Label1.ForeColor = &H80000012
 Label3.ForeColor = &H80000012
 Label4.ForeColor = &H80000012
 Frame1.Caption = "Selecionou Treinamentos "
 Frame1.ForeColor = &H80&
 UserForm1.Caption = "Aprenda tudo sobre Funções  - Escola SaberExcel"
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label3_Click()
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
   ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/index.php/curso-completo-microsoft-excel-vba.html", , True
End If
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label3.BorderStyle = 1
Label3.ForeColor = &HC0&
Label1.ForeColor = &HFF0000
Label2.ForeColor = &H80000012
Label4.ForeColor = &H80000012
Frame1.Caption = "Selecionou Cursos Saberexcel"
Frame1.ForeColor = &HFF0000
UserForm1.Caption = "Aprenda tudo sobre Macros - Escola Saberexcel"
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label4_Click()
Dim Resposta As String
Resposta = MsgBox("deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
   ThisWorkbook.FollowHyperlink "http://www.microsoftexcel.com.br/", , True
End If
End Sub
'- - - - - - - - - - - - - - - - - - -'
Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label4.BorderStyle = 1
Label4.ForeColor = &H8000&
Label1.ForeColor = &H80000012
Label2.ForeColor = &H80000012
Label3.ForeColor = &H80000012
Frame1.Caption = "Selecionou Curso Completo com Video-Aulas (SaberExcel)"
Frame1.ForeColor = &H8000&
UserForm1.Caption = "Aprenda Microsoft Excel VBA - Escola Saberexcel"
Label3.ForeColor = &H80000012
End Sub
'- - - - - - - - - - - - - - - - - - -'


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo os procedimentos acima
Excel vba planilhas usf objetos labels movemouse (131.65 KB)


Última atualização em Qui, 05 de Abril de 2012 11:34  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje359
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25019
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38748
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461577
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA