Авто выход из слайд-шоу Powerpoint в конце пробега

Question

Доброе утро,

Я работаю над макросом для автоматической ссылки sh Excel ссылки перед слайд-шоу, l oop через слайд-шоу, а затем перезапускается снова и снова. Проблема, с которой я столкнулся, заключается в том, что слайд-шоу останавливается, но не завершается, поэтому у таймера ожидания нет возможности даже запустить его.

Могу ли я получить предложение, как мне это исправить?

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

Answer 1

Вы всегда можете сделать это с помощью функции Application.Quit, которая выйдет из вашей текущей подпрограммы. Итак, как-то так:

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