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