首页 文章

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

提问于
浏览 次
0

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

截至目前我已经有了它，所以当你点击一个按钮时，幻灯片索引会弹出一个消息框，但我希望它弹出一个文本框或幻灯片本身的东西 .

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

Private Sub CommandButton_Click()

    MsgBox SlideShowWindows(1).View.Slide.SlideIndex

End Sub

我不想使用按钮 . 我想在每张幻灯片上运行时自动将其显示出来 . 提前谢谢

vba powerpoint powerpoint-vba

2 回答

  • 0

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

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

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

    回复于
  • 0

    在一张幻灯片中添加一个文本框 . 当它被选中时，在立即窗口中键入它以将其命名为对您有意义的内容：

    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
    回复于

相关问题