我们在幻灯片中插入的视频文件、Flash动画以及其他控件对象属于高一级别的插件级别,在幻灯片播放时,这些高级别对象会跑到上层遮盖低级别叠放的对象,使这些低级别的超级链接对象无法实现他们的作用。如果将视频文件或Flash动画文件的窗口放至满屏,那么Slide页面也会失去焦点,无法通过鼠标或键盘进行翻页。这时我们就需要通过添加控件来实现幻灯片的翻页,具体做法如下:
先将视频文件或Flash动画文件插入PowerPoint幻灯片中,调整好窗口大小,然后单击菜单栏的“视图”,选择“工具栏→控件工具箱”,打开控件工具箱面板,选择“命令按钮”,在幻灯片页面上添加一个命令按钮,右键单击按钮,打开属性面板,根据自己的需要设置按钮属性,如:Caption设为“下一页”,Font设为“隶书”,ForeColor设为“&H000000FF&(红色)”,还可以为Picture属性选择一个你喜欢的图片。属性设置完后,双击命令按钮,打开代码窗口,你会看到这样两行代码:
Private Sub CommandButton1_Click()
{这里可以输写代码}
End Sub
这是VB程序设置好的程序段开始和结束的标志,我们只需在这两行代码中间填写事件行为就可以了,其中CommandButton1是按钮的名称,1表示第一个按钮,再添加按钮时,它的名称将是CommandButton2、CommandButton3……如果你对编程不是很熟悉,请不要修改它,以免出错,Click()是单击事件。
1、如果将此按钮的Click()事件设为下翻一页,其代码为:
Private Sub CommandButton1_Click()
SlideShowWindows(1).View.Next
End Sub
此方法显示当前幻灯片之后的幻灯片。如果显示的是最后一张幻灯片,Next方法会关闭幻灯片放映而返回到展台模式的第一张幻灯片。
现在你可以按照此方法添加其他动作按钮。
2、上翻一页按钮的代码:
Private Sub CommandButton2_Click()
SlideShowWindows(1).View.Previous
End Sub
此方法显示当前幻灯片之前的幻灯片,如果当前显示的是演示文稿中的第一张幻灯片,此方法无效。
3、切换到指定幻灯片,此方法有两种形式,如切换到第五张幻灯片,其代码为:
Private Sub CommandButton3_Click()
SlideShowWindows(1).View.GotoSlide 5
End Sub
此方法如果在幻灯片放映过程中切换回当前幻灯片,将重新播放整个动画。
Private Sub CommandButton3_Click()
SlideShowWindows(1).View.GotoSlide 5, msoFalse
End Sub
此方法如果在幻灯片放映过程中切换回当前幻灯片,动画将从中断位置重新播放。
4、切换到当前幻灯片之前观看的幻灯片,其代码为:
Private Sub CommandButton4_Click()
SlideShowWindows(1).View.LastSlideViewed
End Sub
5、切换到最后一张幻灯片,其代码为:
Private Sub CommandButton5_Click()
SlideShowWindows(1).View.Last
End Sub
6.切换到第一张幻灯片,其代码为:
Private Sub CommandButton6_Click()
SlideShowWindows(1).View.First
End Sub
这几种方法返回原幻灯片时,它的动画继续从被中断处开始放映。
7、结束幻灯片放映。其代码为:
Private Sub CommandButton7_Click()
SlideShowWindows(1).View.Exit
End Sub