Question

在Excel里，怎么用VBA编程实现每隔几秒循环更换图片？

EXCEL VBA中，我在窗体内建了一个image控件，需要这个图片控件每隔6秒钟在5张图片中切换1次，然后循环切换，请教大侠，如何实现呢？

Answer 1

图片层代码

Private Sub UserForm_Click()

Do While i < 100

a = i Mod 5

Image1.Picture = LoadPicture("C:\Documents and Settings\xd\My Documents\My Pictures\" & a & ".jpg") '加载图片

Delay 5

i = i + 1

Loop

End Sub

模块层代码

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

'延时

Public Sub Delay(ByVal num As Integer)

Dim t As Long

t = timeGetTime

Do Until timeGetTime - t >= num * 1000

DoEvents

Loop

End Sub

效果如图

追问

非常感谢您的指导！我是通过Sheet1中的一个按钮打开窗体1的，在窗体1中按照您写的代码输入如下代码，总是提示“文件未找到”，如下图：

事实上，我在“E:\12\"文件夹中有5个图片，分别为:1.jpg～5.jpg。

为什么会找不到文件呢？

追答

文件名是0-4

Answer 2

vba没有time控件，你又是单进程的。你这样了需要一个无限循环的进程一直执行下去。请问，想过怎么退出没？