En Excel, ¿cómo utilizar la programación VBA para recorrer imágenes cada pocos segundos?

Código de capa de imagen

Private Sub UserForm_Click()

Hacer mientras i lt 100

a = i Mod 5

Imagen1.Imagen = LoadPicture("C:\Documentos y configuraciones\xd\Mis documentos\Mis imágenes\" amp; a amp; ".jpg") 'Cargar imagen

Retraso 5

i = i 1

Bucle

End Sub

Código de capa de módulo

Función de declaración privada timeGetTime Lib " winmm.dll" () Siempre

'Delay

Sub retraso público (ByVal num como entero)

Dim t As Long

t = timeGetTime

Hacer hasta timeGetTime - t gt; = num * 1000

DoEvents

Bucle

End Sub

El efecto es como se muestra