VBA: OnSlideShowPageChange View. Выход из строя 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

На самом деле надстройка не нужна, мне просто нужно было использовать события приложения (как я и предполагал), требуя модуль класса. Вещи работают сейчас, ууу!