详细问题描述及疑问:期待您的答案,千言万语,表达不了我的感激之情,我已铭记在心 !
在ppt中按Alt+F11,打开VBA编辑器,新建个模块,建立如下两个宏。'OnSlideShowPageChange幻灯片开始放映或切换都会激发Su随格味包已硫里助bOnSlideShowPageChange()MsgBox"把你的vb控件运行代码放这,每次切换都运行"IfActivePresentation.Slid胶意吸化印队顾啊少这eShowWindow.View.CurrentShowPosition=1ThenMsgBox"或者,把你的vb控件运行代码问答放这,只运行一次"EndIfEndSub'OnSlide种春米因守品光专ShowTerminate只在结束幻灯片放映时激活SubOnSlide视ShowTerminate()MsgBox"幻灯片放映结束!"EndSub以上两个宏是当幻灯片放映时激活运行的。如果你想在文件夹中双击打开ppt文件就运行宏。可以把文件保存为.pps类型。同时注意把宏的安全性设置在‘低’。