用VBA实现幻灯片的放映控制

用VBA实现幻灯片的放映控制

　　通常在对幻灯片进行放映时，我们可通过设置文本或图片的超链接来实现幻灯片的跳转播放控制，该方法简单实用。本文另辟蹊径，用另外一种思路实现这一操作，即如何用VBA实现幻灯片放映控制，若能灵活使用，可使你的幻灯片更具专业性，放映时更能得心应手，控制自如。本文旨在抛砖引玉，希望大家能制作出更具水准的演示文稿。

　　一、添加控制播放按钮控件

　　我们试图在幻灯片添加三个按钮，分别叫“上一张”、“下一张”和“退出”，单击相应的按钮即可实现相应的功能。为了便于大家理解，本文引用一个只有三张幻灯片的演示文稿为例来进行讲解说明。

　　打开这个只有三张幻灯片的演示文稿，右击工具栏，选择“控件工具箱”，在第二张幻灯片上用“控件工具箱”中命令按钮控件依次画出三个按钮，通过修改按钮的Caption属性分别给它们命名为“上一张”、“下一张”和“退出”。

　　二、为控件加入相应的事件代码

　　这些命令按钮是无法通过设置超链接来实现幻灯片的跳转播放控制的，只有分别为它们加入相应的事件代码，才能使其实现相应的控制功能。

　　双击“上一张”按钮控件，在其“click”事件中加入下面的代码：

　　With SlideShowWindows(1).View

　　.GotoSlide 1

　　End With

　　双击“下一张”按钮控件，在其“click”事件中加入下面的代码：

　　With SlideShowWindows(1).View

　　.GotoSlide 3

　　End With

　　双击“退出”按钮控件，在其“click”事件中加入下面的代码：

　　 Application.Quit

　　代码窗口如图所示，退出代码窗口返回到演示文稿中，先保存演示文稿再放映，这时我们就可以实现相应按钮的控制功能了。


　　编辑提示：由于加入了播放控制按钮，所以要取消“幻灯片切换”中 “单击鼠标的换页方式”；另外在PowerPoint 2000中，默认的“宏”的安全性为“中”，所以打开类似的演示文稿时提示是否要“启用宏”，若将演示文稿保存类型为“．pps”，打开时将不会出现此提示，而在PowerPoint XP中，将导致这类文稿再次打开时无法实现相应的播放控制功能，只要将“宏”的安全性设为“中”或“低”即可。