Excel planiha vba moveicon shapes intermitente

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.

Baixe o exemplo de planilha contendo os procedimentos e macros acima:
Excel planilha vba move icone shapes intermitente (560.13 KB)

Tags: