PPT VBA怎么实现一打开PPT就弹出信息“你好！”

shenjianrong163 · 发表于 2020-2-27 16:52

本帖最后由 shenjianrong163 于 2020-2-28 22:34 编辑

      PPT中有一个PresentationOpen事件，不知道怎样才能实现一打开PPT就触发（不是播放PPT），然后弹出信息“你好！”，请高手指点，谢谢！       下面是查到的一点信息：

      Private Sub PresentationOpen(ByVal Pres As Presentation)
         MsgBox "你好！"
      End Sub

PPT VBA怎么实现一打开PPT 就弹出信息.rar (56.79 KB, 下载次数: 158)

lss001 · 发表于 2020-2-27 23:43

本帖最后由 lss001 于 2020-2-28 15:35 编辑

使用ppa加载项

Documents.rar (27.56 KB, 下载次数: 35)

'加载项模块代码>>>
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal s As Long)
Sub Auto_Open()
DoEvents: Sleep 1000
Msgbox "Hello World!"
End Sub

shenjianrong163 · 发表于 2020-2-28 16:12

lss001 发表于 2020-2-27 23:43
使用ppa加载项

'加载项模块代码>>>

在本机上添加了加载项，在别的电脑上还能用吗?
您有空时请帮忙看看这个贴子，谢谢！
http://club.excelhome.net/thread-1518988-1-1.html

		自动登录	找回密码
密码			免费注册

[已解决] PPT VBA怎么实现一打开PPT就弹出信息“你好！”

评分

最新热点 /1