Pase de imágenes en intervalos de tiempo
Buenas tardes, mi consulta es la siguiente: He estado utilizando un código para invocar imágenes desde una ruta sin tener que cargarlas previamente (para ahorrar peso) y es la siguiente: "Image1.Picture = LoadPicture("C:\Ubicación\Image.JPG")
Ahora bien, lo que deseo es que ese mismo código me pueda servir dentro de un parámetro de tiempo, por ejemplo que cada "X" cantidad de segundos esta cambie por la siguiente que que yo llame.
Mis imágenes se llaman: 1, 2, 3... Ascendente hasta la 250. Entonces, lo que quiero es que cada 5 segundos el TextBox1.Text, sume 1 a su valor actual, y al este cambiar por defecto la ruto de mi imagen también (eso si se hacerlo) pero no se como hacer cambio de valores por tiempos específicos. Como puedo hacerlo?
1 Respuesta
Puedes poner en el evento cuanto activas el userform, que llame a la macro que va a cambiar la imagen, así:
Private Sub UserForm_activate()
tiempo
End Sub
Esta es la macro que cambia la imagen cada 5 segundos
Sub tiempo()
'Cambia imagen cada 5 segundos
'Por.DAM
For i = 1 To 4
TextBox1 = Val(TextBox1) + 1
Image1.Picture = LoadPicture("C:\ubicación\" & TextBox1 & ".JPG")
DoEvents
Application.Wait Now + TimeValue("00:00:05")
Next
End Sub
Haz la prueba con 4 imágenes y después pon el contador del for hasta 250.
Si quieres cambiar el intervalo de tiempo, cambia en la siguiente línea
Application. Wait Now + TimeValue("00:00:05")
Los parámetros son : "Horas:minutos:segundos"
Saludos. DAM
Si es lo que necesitas.
