Utilizar "Application.OnTime " en un Formulario

Hoy tengo una duda, estoy haciendo un formulario de de bienvenida en el cual quiero poner una imagen que se vaya desplazando hacia la derecha. Como en vba no hay un timer encontré esta rutina..
Public datHora As Date
Public Const conIntervalo = 2 'un minuto
Public Const conRunMacro = "Tu_Sub" 'tu proced.
Sub StartTemporizador()
datHora = Now + TimeSerial(0, 0, conIntervalo)
'iniciar el temporizador
Application.OnTime _
Earliesttime:=datHora, _
Procedure:=conRunMacro, _
Schedule:=True
End Sub
Sub Tu_Sub()
MsgBox ("HOLA") 'o cualquier instrucción
'reiniciar el temporizador
StartTemporizador
End Sub
Sub StopTemporizador()
On Error Resume Next
'desactivar el temporizador
Application.OnTime _
Earliesttime:=datHora, _
Procedure:=conRunMacro, _
Schedule:=False
End Sub
Public datHora As Date
Public Const conIntervalo = 2 'un minuto
Public Const conRunMacro = "Tu_Sub" 'tu proced.
Sub StartTemporizador()
datHora = Now + TimeSerial(0, 0, conIntervalo)
'iniciar el temporizador
Application.OnTime _
Earliesttime:=datHora, _
Procedure:=conRunMacro, _
Schedule:=True
End Sub
Sub Tu_Sub()
MsgBox ("HOLA") 'o cualquier instrucción
'reiniciar el temporizador
StartTemporizador
End Sub
Sub StopTemporizador()
On Error Resume Next
'desactivar el temporizador
Application.OnTime _
Earliesttime:=datHora, _
Procedure:=conRunMacro, _
Schedule:=False
End Sub
En la cual cada 2 seg aparece un msgbox, pero no puedo adaptarla para que controle la imagen del formulario y haga:
img1.left = 10

1 Respuesta

Respuesta
2
A esto llamo yo 'complicarse la vida'... es mucho más sencillo el tema:
En el Userform, colocá esta instrucción dentro del evento Initialize:
Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:00:02"), "moviendo"
End Sub
Y en evento de cierre, o cuando te parezca que deba pararse, esta otra:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.OnTime Now + TimeValue("00:00:02"), "moviendo", Schedule:=False
End Sub
En algún módulo necesitas guardar la rutina 'moviendo'. Ajustá el nombre de tu control y de tu UF.
Lo único que resta es comparar que si left llegó a cierto nro en lugar de sumar, reste. Y lo mismo si llegó a 6 x ej, ya empiece a sumar.
Sub moviendo()
UserForm1.Image1.Left = UserForm1.Image1.Left + 20
Application.OnTime Now + TimeValue("00:00:02"), "moviendo"
End Sub
PD) En mi manual 400Macros encontrarás un cap dedicado al método On Time (este mes todos al 50%)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Cerrar automáticamente mensaje EXCEL

He creado un mensaje de alerta y necesitaría que, si transcurridos 10 segundos no se ha hecho click en Aceptar o Cancelar, se cierre el mensaje y se ejecute una macro. La opción Cancelar también ejecuta dicha macro, por lo que si se activara el botón...
1 respuesta

Reloj que no se detiene

Este código Private Sub cmdCierraApli_Click() 'cierra formulario ' ActiveWorkbook.Save 'Guarda posibles cambios de datos If MsgBox("¿Estás seguro que quieres cerrar?", vbYesNo) = vbYes Then 'mensage para salir Unload Me Else Call Detener_reloj...
1 respuesta

Ayuda con Macro al maximizar ventana

Tengo un codigo en Visual Basic (Application.DisplayFullScreen = True) q se ejecuta al abrir el libro de Excel para q el mismo aparezca en modo pantalla completa pero el problema es que cuando minimizo la aplicacion desde la barra de windows (la de...
1 respuesta

Cambiar color texto o fondo parpadeante

Hay alguna forma de crear un texto o fondo de celda que cambie de color automáticamente de forma parpadeante, como una forma de " publucidad ", me explico que cada 1 segundo o menos cambie el color del texto o el fondo como para destacar un texto de...
1 respuesta

Controlar temporizador con un solo botón

Tengo un temporizador en una celda de excel. ¿Cómo puedo hacer para iniciarlo y detenerlo con el mismo botón? Es decir, que cuando aprieto el botón e inicio el temporizador, al apretar el mismo botón nuevamente este se detenga.
1 respuesta

Celda intermitente con fórmula

¿Qué debo hacer si la celda que quiero que sea intermitente tiene una fórmula?
1 respuesta

Como hacer parpadear una celda en excel

Así como en word se dan efectos de relleno necesito que en excel parpadee un a celda.
1 respuesta

Detener un Application On time

Estoy haciendo un procedimiento donde, cuando se activa un Userform, después de 5 segundos, se corre otro macro. Pero quisiera que si le doy click en un botón o en la POR para salirse del formulario, el contador NO SIGA y no se ejecute el macro del...
1 respuesta

Macro AUTO_OPEN de forma indefinida

Tengo creada una macro Auto_Open, que cuando está el libro de excel abierto, cada 1/2 hora actualiza una consulta web y me pega los datos actualizados en otra hoja del mismo libro. El problema que tengo es que esa macro Auto_Open sólo la ejecuta 24...
1 respuesta

Necesito una macro que envíe por mail el mismo archivo en que se encuentra esta.

El código es el siguiente: Public Sub Enviar_Mail() Dim objOutlook As Outlook.Application Dim objSession As Outlook.Namespace Dim objMessage As Outlook.MailItem Dim objRecipient As Object Dim Fichero As String Dim Destino As String Fichero =...
1 respuesta