在ppt中按Alt+F11,打开VBA编辑器,新建个模块,
建立如下两个宏。
'OnSlideShowPageChange 幻灯片开始放映或切换都会激发
Sub OnSlideShowPageChange()
MsgBox "把你的vb控件运行代码放这,每次切换都运行"
If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then
MsgBox "或者,把你的vb控件运行代码放这,只运行一次"
End If
End Sub
'OnSlideShowTerminate 只在结束幻灯片放映时激活
Sub OnSlideShowTerminate()
MsgBox "幻灯片放映结束!"
End Sub
以上两个宏是当幻灯片放映时激活运行的。如果你想在文件夹中双击打开ppt文件就运行宏。可以把文件保存为.pps类型。同时注意把宏的安全性设置在‘低’。
shell函数