如何在PPT右下角插入自定义页码

yuwei2350 · 发表于 2014-6-7 14:03

各位大虾：
如何在 Office 2007 PPT 中插入自定义页码
我希望在每张幻灯片的右下角编号前插入“Page”
如第一页右下角为“Page 1”，第二页为“Page 2” .........
跪求大虾指导

dajiahaoxinku12 · 发表于 2014-6-7 15:13

插入，页眉页脚里面，有个幻灯片页码狗狗勾上

banjinjiu · 发表于 2014-6-10 21:47

chuhaiou代码，SlideMaster模块：

Sub onSlideShowPageChange()
Dim n As Integer
For n = 1 To ActivePresentation.Slides.Count
ActivePresentation.SlideMaster.HeadersFooters.SlideNumber.Visible = msoTrue
ActivePresentation.SlideMaster.Shapes("Rectangle 6").TextFrame.TextRange.Text = "Page" & n
Next
End Sub

复制代码

wangyihong99 · 发表于 2016-11-23 10:39

banjinjiu 发表于 2014-6-10 21:47
chuhaiou代码，SlideMaster模块：

请教一下各位，比如这段 Application.ActivePresentation.Slides(1) 问题是：如何用msgbox 跳出当前是第几个放映灯？？？比如如上那段是人为的指第1个，谢谢！急用！再比如说 msgbox .slides.counts是弹出当前总共有多少个放映灯片，那当前第几个是怎么样表达呢？
门外汉一个，大家不要笑话，百度找了几天了找不到！
刚好需要在PPT中给小孩子制作一个自动播放当前绘本页面对应的音频以及文本，谢谢！

顺路问一下在PPT中如何自动跳出文本几秒并自动消失？（自动播放指定路径的音频已经在网上找到答案了）

拜托了！

wangyihong99 · 发表于 2016-11-23 11:01

banjinjiu 发表于 2014-6-10 21:47
chuhaiou代码，SlideMaster模块：

请教一下各位，比如这段 Application.ActivePresentation.Slides(1) 问题是：如何用msgbox 跳出当前是第几个放映灯？？？比如如上那段是人为的指第1个，谢谢！急用！再比如说 msgbox .slides.counts是弹出当前总共有多少个放映灯片，那当前第几个是怎么样表达呢？
门外汉一个，大家不要笑话，百度找了几天了找不到！
刚好需要在PPT中给小孩子制作一个自动播放当前绘本页面对应的音频以及文本，谢谢！

顺路问一下在PPT中如何自动跳出文本几秒并自动消失？（自动播放指定路径的音频已经在网上找到答案了）

拜托了！

		自动登录	找回密码
密码			免费注册