为每个循环自动调用用户窗体，而不需要响应用户窗体

我想知道是否有可能在VBA中自动更新用户表单？

在我的情况下：

While Cells(57, 3) > (Cells(47, 3) - Cells(46, 3) + 0) Cells(52, 3) = Cells(52, 3) + 0.5 Call foto_2 Wend 

正如你在上面的代码中看到的那样，我有一个循环来改变一个单元格的值。

单元格的价值与graphics链接起来

通过调用foto_2 ，我正在更新用户foto_2的图像。

这里是用户foto_2的代码，其中包含foto_2的图像，

 Private Sub UserForm_Initialize() Call foto_2 End Sub 

虽然这是foto_2的代码，

 Sub foto_2() Application.ScreenUpdating = False Fname = .... Sheets(1).ChartObjects("foto_2").Chart.Export Filename:=Fname, Filtername:="GIF" UserForm1.Image1.Picture = LoadPicture(Fname) End Sub 

Answer 1

在你的foto_2过程中，在最后一行之后放置一个DoEvents：

 Sub foto_2() Application.ScreenUpdating = False Fname = .... Sheets(1).ChartObjects("foto_2").Chart.Export Filename:=Fname, Filtername:="GIF" UserForm1.Image1.Picture = LoadPicture(Fname) DoEvents End Sub