Vba 如何在幻灯片放映中刷新活动幻灯片？

基于此，我获得了更改形状图像的正确代码。
不幸的是，这不会更新活动演示文稿。如果关闭演示文稿并重新启动，图像会发生更改，但更改应该是直接可见的

这是我更改图像的代码：

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

编辑
我尝试按照建议刷新幻灯片，但这对我无效

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

编辑2

---

我上传了我的文件：

最后我在中找到了我的答案。这似乎是PowerPoint 2007中的一个bug

此代码有助于修复错误：

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

---

我在我的电源插座上也发现了这个bug， 我将这一行添加到代码中，它修复了错误

---

Application.SlideShowWindows（1）.View.GotoSlide Me.SlideIndex

尝试将

SlideShowWindows（1）.View.GotoSlide lSlideIndex

更改为

SlideShowWindows（1）.View.GotoSlide lSlideIndex，msoTrue

这不起作用，我刚刚测试了代码，它就起作用了。在幻灯片放映期间如何运行宏？我的幻灯片上有一个按钮，可以打开一个用户窗体。此表单包含另一个按钮，单击该按钮即可启动该功能。只需重新创建您提到的场景，它就可以正常工作。。。我可以看看你的档案吗？如果是，则将文件上载到任何免费文件共享服务器，并在此处发布链接。感谢您的解决方案！它对我来说非常完美。这对我来说也很有效，但它给了我一点闪光。你不是这样吗？