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

Question

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

我做了以下事情：

1. 工具＆gt; 选项＆gt; 安全选项＆gt; 宏安全＆gt; 安全级别=中等

2. 工具＆gt; 选项＆gt; 宏＆gt; VBA编辑器：

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

3. 文件＆gt; 保存

4. 返回PowerPoint： F5 （适用于幻灯片＆gt; 查看显示）。 没有看到消息框

5. 退出PowerPoint，重新打开.ppt文件， F5 ）。 仍未看到消息框

问题：我错过了什么？为什么在运行幻灯片???

时不会调用OnSlideShowPageChange

Answer 1

使用上面的步骤，它对我来说很好。我能想到的唯一想法是在上面的第2步，您可能已将automacro OnSlideShowPageChange放在Class或UserForm中。它应该进入一个模块（任何模块，任何名称）。或者你有其他可能干扰的代码，比如你是否也在沉溺SlideShowNextSlide事件？