Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planiha vba moveicon shapes intermitente

Excel planiha vba moveicon shapes intermitente

E-mail Imprimir PDF

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)

Última atualização em Sex, 23 de Dezembro de 2011 06:24  

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_counterHoje262
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana24922
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38651
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461480
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