user_ushbn 发表于 2016-4-12 16:43:01

我无语！我的这个总页码在运行时肯定是可以自动更新的，除非你使用不当！！

fewfef44 发表于 2016-4-12 17:10:20

好玩不过了

goodmoon 发表于 2016-4-12 17:27:40

Sub onSlideShowPageChange()
    Dim n As Integer
    n = ActivePresentation.Slides.Count
    ActivePresentation.SlideMaster.HeadersFooters.SlideNumber.Visible = msoTrue
    ActivePresentation.SlideMaster.Shapes(6).TextFrame.TextRange.Text = "/ " & n
End Sub
你好，我想问一下Shapes(6).是怎么插入的，是人手插入的还是，只要把这个程序写上他就自动生成的？

hotel1684 发表于 2016-4-12 17:29:36

多好的程序哟，收下了

pff8079 发表于 2016-4-12 17:34:05

用VBA插入文本控件

sgsmd123 发表于 2016-4-12 17:42:44

Shapes(6)是人工输入的，6是数出来的，是加入了一个文本框，这个文本框是当时母版中的第6个元素。

xj5246 发表于 2016-4-12 18:10:02

同问，这个数字对演讲者非常重要
页: 1 [2]
查看完整版本: PPT2003里怎样显示总页数？