Vba 运行结束时自动退出Powerpoint幻灯片放映

早上好

我正在制作一个宏，在幻灯片放映之前自动刷新excel链接，循环播放幻灯片，然后一遍又一遍地重新启动。我遇到的问题是幻灯片放映停止，但没有退出，因此等待计时器甚至没有机会启动

我能得到一个如何解决这个问题的建议吗

Sub LoopAllSlides()

Dim i As Integer

For i = 0 To 2000

        Dim Endpoint As Single

        Endpoint = Timer + 10
        Do While Timer < Endpoint 'This loop works dont delete
            DoEvents
        Loop



        ActivePresentation.UpdateLinks

        With ActivePresentation.SlideShowSettings

        .AdvanceMode = ppSlideShowUseSlideTimings

        .LoopUntilStopped = msoFalse

        .Run

        End With

Next i

End Sub

子循环所有幻灯片（）
作为整数的Dim i
对于i=0到2000
将端点设置为单个
端点=计时器+10
当计时器

您始终可以使用应用程序执行此操作。退出功能将退出当前sub。因此，类似以下内容：

Sub LoopAllSlides()        
    Dim i           As Integer

    For i = 0 To 2000
        Dim Endpoint As Single
        Endpoint = Timer + 10
        Do While Timer < Endpoint        'This loop works dont delete
            DoEvents
        Loop
        ActivePresentation.UpdateLinks
        With ActivePresentation.SlideShowSettings
            .AdvanceMode = ppSlideShowUseSlideTimings
            .LoopUntilStopped = msoFalse
            .Run
        End With
    Next i

    'Quit Application Function
    IWishICouldQuitYou

End Sub

Function IWishICouldQuitYou()
    With Application
        For Each w In .Presentations
            w.Save
        Next w
        .Quit
    End With

End Function

子循环所有幻灯片（）
作为整数的Dim i
对于i=0到2000
将端点设置为单个
端点=计时器+10
当计时器

您始终可以使用应用程序执行此操作。退出功能将退出当前sub。因此，类似以下内容：

Sub LoopAllSlides()        
    Dim i           As Integer

    For i = 0 To 2000
        Dim Endpoint As Single
        Endpoint = Timer + 10
        Do While Timer < Endpoint        'This loop works dont delete
            DoEvents
        Loop
        ActivePresentation.UpdateLinks
        With ActivePresentation.SlideShowSettings
            .AdvanceMode = ppSlideShowUseSlideTimings
            .LoopUntilStopped = msoFalse
            .Run
        End With
    Next i

    'Quit Application Function
    IWishICouldQuitYou

End Sub

Function IWishICouldQuitYou()
    With Application
        For Each w In .Presentations
            w.Save
        Next w
        .Quit
    End With

End Function

子循环所有幻灯片（）
作为整数的Dim i
对于i=0到2000
将端点设置为单个
端点=计时器+10
当计时器

我喜欢函数名lol。是否有任何方法可以在不退出程序的情况下停止演示？我试图将其放入循环中，以便在播放完所有幻灯片后，它停止演示文稿，然后循环在等待时间后重新初始化演示文稿。我在powerpoint中使用VBA的经验有限，我尝试过运行按键{ESC}，但它只是重复退出演示文稿而不循环。谢谢你的帮助！知道我怎么想出来的。谢谢你的主意！我刚刚在With语句结束后添加了第二个等待循环，该循环具有允许powerpoint在整个持续时间内运行的时间延迟。我喜欢函数名lol。是否有任何方法可以在不退出程序的情况下停止演示？我试图将其放入循环中，以便在播放完所有幻灯片后，它停止演示文稿，然后循环在等待时间后重新初始化演示文稿。我在powerpoint中使用VBA的经验有限，我尝试过运行按键{ESC}，但它只是重复退出演示文稿而不循环。谢谢你的帮助！知道我怎么想出来的。谢谢你的主意！我刚刚在With语句结束后添加了第二个等待循环，该循环的时间延迟允许powerpoint在整个时间段内运行。