vba - 将可见的图像从 False 更改为 True 并在用户窗体中的进程中返回

Question

我有一个需要一些时间来处理的 Sub。我希望在处理时显示“请稍候”的图像出现在表单顶部，然后消失。我已经尝试过这段代码，但它不起作用:

Private Sub UserForm_Initialize ()
Image1.visible=False
End Sub

Sub CommandButton1_Click ()
Image1.visible=True
'Here goes the process
Image1.visible=False
End Sub

那可能吗？

Answer 1

添加 DoEvents 使 VBA 能够处理重绘事件

Sub CommandButton1_Click ()
  Image1.visible=True
  DoEvents
  'Here goes the process
  Image1.visible=False
End Sub