使用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。

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

当您激活文本插入光标时，选择：插入| 幻灯片编号