如何让Powerpoint在动画中调用我的VBA子程序？

Question

ShellExecute()每次我的PowerPoint幻灯片放映中出现一张新幻灯片时,我最终想要做的是一个命令行程序.我正在使用Office 2003 PowerPoint.

我做了以下事情:

1. 工具>选项>安全选项>宏安全>安全级别=中

2. 工具>选项>宏> VBA编辑器:

   Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
     MsgBox ("OnSlideShowPageChange")
   End Sub
   

3. 文件>保存

4. 返回PowerPoint :( F5适用于幻灯片放映>查看显示).没有看到消息框

5. 退出PowerPoint,F5再次重新打开.ppt文件.仍然没有看到消息框

问题:我错过了什么？为什么OnSlideShowPageChange在我运行幻灯片放映时没有被调用？

Answer 1

它对我来说工作得很好，完全按照您上面的步骤操作。我唯一能想到的是上面的步骤#2，您可能已将自动宏OnSlideShowPageChange放在​​类或用户窗体中。它应该进入一个模块（任何模块，任何名称）。或者您是否还有其他可能会干扰的代码，例如您是否也沉没了SlideShowNextSlide事件？