Перемещение слайдов в слайд-шоу по щелчку мыши с помощью VBA

Question

На слайде PowerPoint у меня есть две кнопки: Beginner и Advanced. Когда я нажимаю Beginner, отображается определенный набор слайдов, и то же самое относится к Advanced.

Но при нажатии на кнопку все слайды отображаются в цикле один за другим.

Но мое требование - перемещать набор слайдов для определенных кнопок одним щелчком мыши, а не автоматически. Я не хочу добавлять задержку к слайдам.

Ниже приведен код, но я не знаю, как продвигаться по клику. Кто-нибудь может предложить идею, как это сделать?

Sub ExampleSlideRange()
    Dim index, i, count As Integer
    index = 2
    count = 9
    For i = index To count
        ActivePresentation.SlideShowWindow.View.GotoSlide i
    Next i
    ActivePresentation.SlideShowWindow.View.GotoSlide 1
End Sub