vba - 如何刷新幻灯片放映中的事件幻灯片？

Question

基于 my last question我得到了更改形状图像的正确代码。
不幸的是，这不会更新事件的演示文稿。如果我关闭演示文稿并重新启动它，图像会发生变化，但变化应该是直接可见的。

这是我更改图像的代码:

ActivePresentation.SlideShowWindow.View.Slide.Shapes("SolutionA_Image").Fill.UserPicture ("D:\User\SolutionWrong.jpg")

我找到了一种更新演示文稿的方法，但这会使演示文稿闪烁。

ActivePresentation.SlideShowWindow.Height = ActivePresentation.SlideShowWindow.Height - 1
ActivePresentation.SlideShowWindow.Height = ActivePresentation.SlideShowWindow.Height + 1

编辑
我尝试按照建议刷新幻灯片 here ，但这对我不起作用。

Dim lSlideIndex As Long
lSlideIndex = SlideShowWindows(1).View.CurrentShowPosition
SlideShowWindows(1).View.GotoSlide lSlideIndex

编辑2
我上传了我的文件:Download

Answer 1

最后我在 this blog post 中找到了答案.这似乎是 PowerPoint 2007 中的错误。

此代码有助于修复错误:

Dim osld As Slide
'get current slide
Set osld = ActivePresentation.SlideShowWindow.View.Slide
'the next line adds the empty textbox and refreshs the slide
osld.Shapes.AddTextbox msoTextOrientationHorizontal, 1, 1, 1, 1