使用vba向powerpoint幻灯片添加文本

Question

我有一个幻灯片母版的PowerPoint，所以所有幻灯片都有相同的特征。我想使用VBA在每一侧放置相应幻灯片的SlideIndex编号。

截至目前我已经这样了，当你点击一个按钮时，幻灯片索引会弹出一个消息框，但我想让它弹出一个文本框或幻灯片本身。

这是我目前正在使用的脚本..

Private Sub CommandButton_Click()

    MsgBox SlideShowWindows(1).View.Slide.SlideIndex

End Sub

我不想使用按钮。我想在每张幻灯片上运行它时自动拥有它。提前谢谢

Answer 1

在一张幻灯片中添加文本框。当它被选中时，在立即窗口中输入它，将它命名为对你有意义的东西：

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

Answer 2

顺便说一下，你不需要VBA。

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

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