excel 2013所有图像仅在宏完成运行时显示

Question

首先，我使用excel 2010来编写宏代码然后运行，所有图像将相应地显示为1并且工作正常。

但是当我使用excel 2013时，所有图像都只显示AFTER宏完成运行。

我需要在宏运行时向用户显示图像1。 无论如何要解决这个问题？

这是我的代码：

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Pictures()

  Range("A1").Select
  ActiveSheet.Pictures.Insert ThisWorkbook.Path & "\image\image01.jpg"
  Sleep (500)
  Range("D1").Select
  ActiveSheet.Pictures.Insert ThisWorkbook.Path & "\image\image02.jpg"
  Sleep (500)
  Range("H1").Select
  ActiveSheet.Pictures.Insert ThisWorkbook.Path & "\image\image03.jpg"
  Sleep (500)
  ...
End Sub