使用vba将文本添加到powerpoint幻灯片

我有带幻灯片母版的PowerPoint，因此所有幻灯片都具有相同的特征。我想使用VBA在每一侧放置相应幻灯片的幻灯片索引编号

现在我有了它，所以当你点击一个按钮时，幻灯片索引会弹出在一个消息框中，但我希望它会弹出在一个文本框或幻灯片本身的某个地方

下面是我当前使用的脚本

Private Sub CommandButton_Click()

    MsgBox SlideShowWindows(1).View.Slide.SlideIndex

End Sub

---

我不想用按钮。我希望在运行幻灯片时自动将其显示在每张幻灯片上。提前感谢您为一张幻灯片添加一个文本框。选中后，在即时窗口中键入以下内容，将其命名为对您有意义的内容：

ActiveWindow.Selection.ShapeRange(1).Name = "SlideNumber"

然后，按钮处理代码可以如下所示：

With SlideShowWindows(1).View.Slide.SlideIndex.Shapes("SlideNumber")
   .TextFrame.TextRange.Text = Cstr(SlideShowWindows(1).View.Slide.SlideIndex)
End with

---

顺便说一句，你不需要VBA

转到幻灯片主视图。在母版上，在希望幻灯片索引显示的任何位置添加一个文本框

---

当文本插入光标处于活动状态时，选择：插入|幻灯片编号

如果我不想使用按钮怎么办。我希望它在打开时自动发布pageIndex，当您需要设置事件处理程序并捕获适当的事件并响应它时，这几乎必须存在于外接程序中。它变得更加复杂。或者，您可以在kiosk模式下运行演示文稿，并添加自己的“下一步”和“上一步”按钮。“下一步”按钮可以添加幻灯片编号，然后进入下一张幻灯片。我想制作一个加载项。。。这在外接程序中看起来如何？OnPresentationOpen（）？在我维护的PowerPoint常见问题解答网站上查看这篇文章（还有一个链接指向另一篇关于处理事件的文章）。如何使代码在演示文稿打开时自动运行？你说的“在即时窗口中键入此项以将其命名为有意义的内容”是什么意思？