user_rhuxvgma 发表于 2016-4-12 13:22:58

PPT 2010 加页码

我现在使用的是PPT 2010 版的，但是加页码的时候总是加不成功。

想加 5/10 （页码数/总页码数） 的时候，总是会出现/10，而不出现想要的页码数。
2003版的时候加页码就很简单，请高手赐教……

usjerseys889 发表于 2016-4-12 16:41:10

总页码另用一个文本框！你可参考

ynkmdp 发表于 2016-4-12 17:26:34

谢谢指点……
昨天琢磨了一下，学会了……

jdyuxp12 发表于 2016-4-12 17:46:38

Sub onSlideShowPageChange()
    Dim n As Integer
   
    MsgBox "have a test!"
   
    n = ActivePresentation.Slides.Count
    ActivePresentation.SlideMaster.HeadersFooters.SlideNumber.Visible = msoTrue
    ActivePresentation.SlideMaster.Shapes(6).TextFrame.TextRange.Text = "/ " & n
End Sub
页: [1]
查看完整版本: PPT 2010 加页码