关于PPT页码获取的vba脚本？

user_dqozmfhu

如题，想弄个宏，当点击某个对象后执行这个宏会把当前ppt页码记录到一个全局变量中以便其它页面的对象调用这个值，该怎么写脚本？

251067462

新建 模块
Dim intPageNum As Integer
Sub SetPageNum()
    intPageNum = ActivePresentation.SlideShowWindow.View.Slide.SlideNumber
End Sub
给需要的形状对象设置动作，链接到宏SetPageNum即可。
本法具有很大的局限性，比如，中途代码被停止，变量就会消失。且本代码不涵盖错误判断。
最好的主意还是写入一些参数到注册表内，随时访问。（利用SaveSetting啥的）

sailor0763

可以达到我的目的了，谢谢了!