使用vba通过鼠标单击在幻灯片放映中移动幻灯片

在PowerPoint幻灯片上，我有两个按钮：

初学者

和

高级

。当我单击

初学者

时，会显示一组特定的幻灯片，而

高级

也是如此

但单击按钮后，所有幻灯片都会以循环的方式依次显示

但我的要求是在鼠标单击时移动特定按钮的幻灯片集，而不是自动移动。我不想给幻灯片增加延迟

下面是代码，但我不知道如何点击前进。有人能提出一个如何做到这一点的想法吗

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

---

对不起，你必须澄清第3和第4段。不清楚你想做什么。考虑我有2-10幻灯片，我用上面写的代码循环它们。这里的问题是幻灯片一张接一张地运行，没有任何延迟。所以，我想在初学者点击按钮时显示幻灯片2-10，但他们应该只在鼠标点击时移动，而不是在幻灯片中通常出现的10点后移动。请解释为什么需要在VBA中执行此操作。相反，只需创建2个自定义放映（），将每张幻灯片设置为单击前进，并将形状变成动作按钮，跳转到每个自定义放映的开始。