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

【问题标题】：Add text to powerpoint slide using vba使用 vba 将文本添加到 powerpoint 幻灯片
【发布时间】：2015-07-26 04:53:08
【问题描述】：

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

到目前为止，我有它，所以当您单击按钮时，幻灯片索引会在消息框中弹出，但我希望它在文本框或幻灯片本身的其他内容中弹出。

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

Private Sub CommandButton_Click()

    MsgBox SlideShowWindows(1).View.Slide.SlideIndex

End Sub

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

【问题讨论】：

标签： vba powerpoint

【解决方案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

【讨论】：

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

【解决方案2】：

顺便说一句，您不需要 VBA。

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

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

【讨论】：