VBA：OnSlideShowPageChange View.Exit 使 PowerPoint 崩溃

Question

我尝试仅使用 VBA 模块来设置连续循环的幻灯片，每次播放后加载新幻灯片。从第一个演示文稿的模块中，我可以打开一个演示文稿文件和运行一个新的幻灯片。但是，当我测试退出幻灯片 PPT 崩溃时。也许因为 SlideShowWindow 是生成 OnSlideShowPageChange 事件的对象，如果我尝试在它生成的事件中退出该对象，它会破坏事情吗？或者，也许退出 SlideShowWindow 本身会生成 OnSlideShowPageChange，创建一个无限循环...我想我想知道如何使用 OnSlideShowPageChange 事件退出 SlideShowWindow.View

Sub OnSlideShowPageChange(ByVal TheActiveSlideShowWindow As SlideShowWindow)

    If TheActiveSlideShowWindow.View.CurrentShowPosition = 3 Then

        TheActiveSlideShowWindow.View.Exit   

    End If

End Sub

Answer 1

实际上不需要加载项，我只需要使用应用程序事件（正如我推测的那样），需要一个 class 模块。现在一切正常，耶！

VBA：OnSlideShowPageChange View.Exit 使 PowerPoint 崩溃

VBA: OnSlideShowPageChange View.Exit Crashes PowerPoint

powerpoint

vba