PPT2003里怎样显示总页数？

user_ushbn

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

fewfef44

好玩不过了

goodmoon

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

多好的程序哟，收下了

pff8079

用VBA插入文本控件

sgsmd123

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

xj5246

同问，这个数字对演讲者非常重要