文档介绍:PPTVBA常用语句结束放映的语句SlideShowWindows(Index:=1).(1).()////"C:\DocumentsandSettings\Administrator\桌面\"//如果你要新打开的文档开始播放的话,:WithSlideShowWindows(1).:=”888”文本框:("TextBox7").="999999"图形元件:("Oval9").Visible=(1).Shapes("Picture29").Height=(1).Shapes("Picture29").Width=0一、OnSlideShowPageChange宏的使用下面我们来研究一下这两个宏的功能与运行的条件。先来看OnSlideShowPageChange宏,我们新建一个演示文稿,并把PowerPoint宏的安全级别设置为启用全部宏,在演示文稿中添加几张幻灯片,为便于测试说明,从第一张幻灯片开始,我们按顺序给它们输入数字编号"1、2、3、4……",再按Alt+F11快捷键启动VBA编辑器,在其中插入一个模块,向代码窗口中输入如下代码:SubOnSlideShowPageChange()MsgBox"Iloveyou,PowerPoint."EndSub点击"保存"按钮,保存文档,(),返回幻灯片编辑视图,按F5键进行放映,我们首先会看到一个显示"Iloveyou,PowerPoint."的消息框,点击确定后,放映第一张幻灯片,再点击鼠标左键,放映到第二张,也会出现同样的消息框,后面各张的放映的情形也是这样。这说明我们的宏在放映时及放映过程中被正确地执行了,还说明这个宏是在放映时就自动运行,以后只要有幻灯片切换都会被激发而运行。根据它的特性,只要是在幻灯片放映开始时就要完成的任务,或是放映过程中需要不断重复做的处理都可以交给它来完成。同时,这个宏也很适合用来对PowerPoint放映环境进行初始化设置,不过应做一下改进,因为初始化只需要一次,反复做会浪费系统资源,改进后的示例代码如下:SubOnSlideShowPageChange()=1ThenMsgBox"Iloveyou,PowerPoint."EndIf