|
 Escola Saberexcel VBA Estudos - o site de quem precisa aprender tudo sobre excel vba
Procedimentos e macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos aprender como inserir um moveicon em determinado objeto, neste caso vamos usar CommandButtons e Labels, pegamos uma figura do Super-Mário.
Junto inserí também um shapes(Autoforma) intermitente, isto é, uma autoforma que pisca 10 vezes na folha de planilha ao executar o macro.
Espero que o exemplo possa lhe ser útil. Baixe o exemplo de planilha no final da página com todas as explicações de como fazer.
Fique com Deus, Expedito Marcondes
' - - - - - - - - - - - - - - - - - - - - - - - - - -
PROCEDIMENTOS EXISTENTES NO MÓDULO DE CÓDIGO DO USERFORM.
'- - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub cmdICONE_Click()
On Error Resume Next
Saber1.Shapes("saber").Visible = True
[A13].Value = "......A-G-U-A-R-D-E---> 4 segundos......"
vTempo = Timer + 4 'definindo os quatro segundos para ocultar a imagem
Do While Timer < vTempo
DoEvents
Loop
Saber1.Shapes("saber").Visible = False
UserForm1.Show
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
Private Sub lblINTERMITENTE_Click()
Dim resposta As String
resposta = MsgBox("Já que clicou, quer aprender a fazer imagem intermitente", vbYesNo, "Saberexcel - o site das macros")
If resposta = 6 Then
sb = 0
[A13].Value = "......UM MOMENTO...espere----> shapes piscar 10 vezes......"
Do While sb < 10
ActiveSheet.Shapes("sbx_didaticos").Visible = True
vTempo = Timer + 0.4
Do While Timer < vTempo
DoEvents
Loop
ActiveSheet.Shapes("sbx_didaticos").Visible = False
vTempo = Timer + 0.2
Do While Timer < vTempo
DoEvents
Loop
sb = sb + 1
Loop
End If
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub
'onde queremos que o userform abra na folha de planilha (Altura e Esquerda)
Private Sub UserForm_Activate()
With frmICONE
.Top = Application.Top + 15 '
.Left = Application.Left + 17 '
End With
End Sub
Private Sub Label3_Click()
sbx_visualizar_shapes
End Sub
Private Sub cmdFECHAR_Click()
Unload Me
End Sub
' - - - - - - - - - - - - - - - - - - - - - - - - - -
EM UM MÓDULO COMUM INSIRA ESSE MACRO.
'- - - - - - - - - - - - - - - - - - - - - - - - - -
Sub sbx_intermitente()
'http://www.microsoftexcel.com.br
Dim resposta As String
resposta = MsgBox("deseja visualizar autoforma intermitente?..", vbYesNo, "Escola Saberexcel VBA Estudos®")
If resposta = 6 Then
[A13].Value = "......UM MOMENTO...espere----> shapes piscar 10 vezes......"
n = 0
Do While n < 10
ActiveSheet.Shapes("sbx_didaticos").Visible = True
vTempo = Timer + 0.4
Do While Timer < vTempo
DoEvents
Loop
ActiveSheet.Shapes("sbx_didaticos").Visible = False
vTempo = Timer + 0.2
Do While Timer < vTempo
DoEvents
Loop
n = n + 1
Loop
End If
[A13].Value = "Pronto procedimento realizado!!!....."
End Sub
Sub sbx_visualizar_shapes()
ActiveSheet.Shapes("sbx_didaticos").Visible = True
Saber1.Shapes("saber").Visible = True
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.
|