在ppt中按Alt+F11,打开
VBA编辑器,新建个模块,建立如下两个宏。'OnSlideShowPageChange 幻灯片开始放映或切换都会激发Sub OnSlideShowPageChange() MsgBox "把你的vb控件运行代码放这,每次切换都运行" If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then MsgBox "或者,把你的vb控件运行代码放这,只运行一次" End IfEnd Sub'OnSlideShowTerminate 只在结束幻灯片放映时激活Sub OnSlideShowTerminate() MsgBox "幻灯片放映结束!"End Sub以上两个宏是当幻灯片放映时激活运行的。如果你想在文件夹中双击打开ppt文件就运行宏。可以把文件保存为.pps类型。同时注意把宏的安全性设置在‘低’。
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。