ppt vba loadpicture 加载图片无法及时刷新显示，退出放映才显示出现

MsgBox "B选项"
Set Image1.Picture = LoadPicture("")
Set Image3.Picture = LoadPicture("")
Set Image4.Picture = LoadPicture("")
Set Image2.Picture = LoadPicture("yes.jpg")
执行上述代码之后，Image2这个控件并没有及时刷新出现，当退出ppt放映之后才显示，很不解

如果不是你代码写错了地方。就是开始放映就一次性把所有的幻灯片都绘图完成了，你再修改内容也不会重绘。