PPT使用类模块事件Slideshowbegin事件，如何自动触发

闲信凭栏

请高手帮我制作一个PPT范例，当打开PPT放映时，自动解发事件？PPT在打开过程中直接放映，不做任何操作，就需要触发slideshowbeging事件，谢谢！

闲信凭栏

有没有高手可以解决一下！

shenjianrong163

注：此方法在放映前先运行Initialize()宏。
1.设置类模块名为“appEvents”，类模块中的代码如下：

1. Public WithEvents App As Application
   
2. 
   
3. Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)
   
4.     MsgBox "SlideShowBegin" '此处为SlideShowBegin中执行的代码
   
5. End Sub

复制代码

2.模块中的代码如下：

1. Dim nonControlEvents As appEvents
   
2. 
   
3. Public Sub Initialize()
   
4.     Set nonControlEvents = New appEvents
   
5.     Set nonControlEvents.App = Application
   
6. End Sub

复制代码

闲信凭栏

shenjianrong163 发表于 2021-1-28 23:44
注：此方法在放映前先运行Initialize()宏。
1.设置类模块名为“appEvents”，类模块中的代码如下：
2.模 ...

你好，能不能打开PPT不做任何操作直接放映的情况下，启动这个Slideshowbegin事件！？

shenjianrong163

闲信凭栏 发表于 2021-1-29 18:37
你好，能不能打开PPT不做任何操作直接放映的情况下，启动这个Slideshowbegin事件！？

做成加载宏可以，除非你运行后卸载加载宏，否则所有的PPT打开都要触发slideshowbeging事件。

闲信凭栏

大神，怎么样做成加载宏？请教！万分感谢！

闲信凭栏

shenjianrong163 发表于 2021-1-29 22:42
做成加载宏可以，除非你运行后卸载加载宏，否则所有的PPT打开都要触发slideshowbeging事件。

大神，怎么样做成加载宏？请教！万分感谢！

shenjianrong163

闲信凭栏 发表于 2021-2-3 15:02
大神，怎么样做成加载宏？请教！万分感谢！

先把下面的代码加进模块：

1. Sub Auto_Open()
   
2.     Call Initialize
   
3. End Sub

复制代码

然后将文件另存为.ppa格式

shenjianrong163

闲信凭栏 发表于 2021-2-3 15:02
大神，怎么样做成加载宏？请教！万分感谢！

注意：这种做法有个缺陷，只要打开任何PPT文件都会执行程序。

闲信凭栏

shenjianrong163 发表于 2021-2-3 16:09
注意：这种做法有个缺陷，只要打开任何PPT文件都会执行程序。

学习了，我试一下！