Boa noite,
Sugiro o seguinte código, a ser inserido num módulo:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Parar As Boolean
Sub Iniciar()
Parar = False
While Parar = False
UserForm1.Image1.Visible = True
Sleep 250
DoEvents
UserForm1.Image1.Visible = False
Sleep 250
DoEvents
Wend
End Sub
Sub Encerrar()
Parar = True
End Sub
No formulário é só colocar a chamada aos procedimentos "Iniciar" e "Encerrar".
No exemplo, a "Image1" sobrepõe a outra imagem.
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 07/08/2012 5:27 pm