PowerPoint 2013幻灯片中插入Flash动画及对动画播放进行控制的方法

PPT教程 2021-12-27 22:36:32

在各类PPT演示文稿中经常需要使用Flash动画。在PowerPoint 2013幻灯片中，可以使用Shockwave Flash Object控件来插入Flash动画，通过对控件进行编程，用户能够方便地对动画的播放进行控制。本文将介绍在PowerPoint 2013幻灯片中插入Flash动画以及对动画播放进行控制的方法。

1、启动PowerPoint 2013，创建演示文稿。在“开发工具”选项卡的“控件”组中单击“其他控件”按钮，。此时打开“其他控件”对话框，选择“Shockwave Flash Object”控件，，然后单击“确定”按钮关闭“其他控件”对话框。

图1　单击“其他控件”按钮

图2　“其他控件”对话框

2、此时，鼠标指针变为形状，按住左键拖动鼠标在幻灯片中绘制控件，。按住左键拖动控件能改变其在幻灯片中的位置，拖动控件上的控制柄可以调整控件的大小。

图3　绘制控件

3、在“开发工具”选项卡的“控件”组中单击“属性”按钮，。此时打开“属性”对话框，在“Movie”右侧的文本框中输入需要播放的Flash文件的路径地址和文件名，。然后按“F5”键播放幻灯片，插入的动画即开始播放。

图4　单击“属性”按钮

图5　输入Flash文件地址

4、在“开发工具”选项卡的“控件”组中单击“命令按钮”按钮，然后按住左键拖动鼠标在幻灯片中添加一个命令按钮，。然后在“属性”对话框中设置按钮的“Caption”属性更改按钮上显示的标题，。

图6　添加“命令按钮”控件

图7　设置控件的“Caption”属性

5、使用相同的方法在幻灯片中再添加3个“命令按钮”控件，并将按钮上显示的标题分别更改为“停止”、“快进”和“快退”。在幻灯片中按住“Ctrl”键单击控件同时选择这些控件，然后在“格式”选项卡的“排列”组中单击“对齐对象”按钮，在打开的下拉列表中先选择级联列表中的“左对齐”选项使控件左对齐，然后再选择其中的“纵向分布”选项使控件纵向分布放置，。

图8　选择“纵向分布”选项

6、在“播放”按钮上右击，选择快捷菜单中的“查看代码”命令打开Visual Basic编辑器窗口，此时在该控件的代码窗口中将自动添加“Click”事件。在代码窗口中输入控件的Click事件代码，。这段代码的作用是当单击“播放”按钮时，Flash动画开始播放。详细的事件代码程序。

图9　为“播放”按钮添加Click事件代码

01 Private Sub CommandButton1_Click()

02 ShockwaveFlash1.Play'动画开始播放

03 ShockwaveFlash1.Loop=True'允许动画循环播放

04 End Sub

注意

控件是一种模块化的对象，在编写程序时，。这段程序代码的作用是实现单击该按钮时动画播放将暂停，再单击将使动画播放停止。详细的事件代码。

图10　为“暂停”按钮添加事件代码

01 Private Sub CommandButton2_Click()

02 ShockwaveFlash1.Stop'动画停止播放

03 End Sub

注意

这里，Play和Stop都是Flash控件的方法。控件的方法实际上是控件的内部函数，VBA程序调用这些控件方法，能够完成不同的动作，实现需要的操作，并对控件的状态进行修改。在程序中使用控件的方法十分简单，在输入控件后键入“.”，Visual Basic编辑器会给出控件方法和属性的代码提示，用户可以直接在列表中选择并应用到程序中。

8、在代码窗口中为“快进”按钮添加Click事件代码，。该段代码的作用是实现在单击该按钮时，动画播放跳转到当前帧前面10帧的位置，然后继续播放。详细的事件代码。

图11　为“快进”按钮添加Click事件代码

01 Private Sub CommandButton3_Click()

02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'动画前进10帧

03 ShockwaveFlash1.Play'继续播放动画

04 End Sub

9、在代码窗口中为“快退”按钮添加Click事件代码，。该段代码的作用是实现在单击该按钮时，动画播放跳转到当前帧后面10帧的位置，然后继续播放。详细的事件代码。

图12　为“快退”按钮添加事件代码

01 Private Sub CommandButton4_Click()

02 ShockwaveFlash1.GotoFrame(ShockwaveFlash1.CurrentFrame+10)'动画后退10帧

03 ShockwaveFlash1.Play'继续动画播放

04 End Sub