创建宏控制幻灯片中的 FLASH 控件

如何在PowerPoint中控制幻灯片中的Shockwave Flash控件

注意：下面的宏示例

?仅在PowerPoint中有效。Microsoft PowerPoint Viewer不支持Visual Basic for Applications宏。?PowerPoint Viewer和PowerPoint的Macintosh版本都不支持使用ActiveX控件。只有Microsoft PowerPoint97和更高版本可以使用ActiveX控件。

用插入Shockwavd Flash Object控件的方法加入Flash.swf动画，将它的Playing属性设置为False；将它的EmbedMovie属性设置为True可以将动画嵌入到演示文稿中，但路径要完整。

一、创建宏（方法一）要创建宏代码示例，请按照下列步骤操作：

1.按Alt+F11启动“Visual Basic编辑器”。

2.在“插入”菜单上，单击“模块”。

3.在模块中键入以下代码示例。

启动（播放）

下面的子例程启动Flash动画：

Sub PlayShock()

Slide#.ShockwaveFlash#.Play

End Sub

注意：Slide#是Shockwave Flash控件所在的幻灯片。ShockwaveFlash#是幻灯片中Shockwave Flash 控件的名称，将其替换为控件的实际名称。(例：Slide1.ShockwaveFlash1.Play)

停止

下面的子例程结束动画：

Sub StopShock()

Slide#.ShockwaveFlash#.StopPlay

End Sub

后退（倒带）

下面的子例程将动画后退回开始处：

Sub RewindShock()

Slide#.ShockwaveFlash#.Rewind

End Sub

添加并配置动作按钮（做三个按钮）

使用下列步骤将代码链接至所选的动作按钮。

1.要创建动作按钮，请按照下列步骤操作：

a.在“绘图”工具栏上，单击“自选图形”，指向“动作按钮”，然后单击“动作按钮：自定义”

按钮。

b.在幻灯片中绘制动作按钮。

2.在“动作设置”对话框中，单击“单击鼠标”选项卡。

3.单击“运行宏”。

注意：必须首先创建上面的宏，此选项才可用。

4.在宏列表中，选择要附加到按钮上的宏的名称→单击“确定”

5.在按钮上添加文字。

二、为ActiveX控件编写事件处理程序；使用事件处理程序来控制另一个控件（方法二）

1.新建一张空白版式的幻灯片→单击控件工具箱上的“其他控件”→插入Shockwavd Flash Object

控件→右击该控件→单击“属性”→在Movie属性右边输入：需要的动画路径→将Playing属性设置为False

2.绘制三个命令按钮→分别右击命令按钮→单击“属性”→将Caption属性改为：播放、暂停、后

退→选中三个按钮→在属性面板中将它们的Height属性设为30；Width属性设为60→对齐

3.右击“播放”按钮→单击“查看代码”→在“Visual Basic编辑器”中→分别为三个按钮的

“CommandButton_Click”事件输入代码，示例如下：

播放按钮的代码：

Private Sub CommandButton1_Click()

Slide1.ShockwaveFlash1.Play

End Sub

暂停按钮的代码：

Private Sub CommandButton2_Click()

Slide1.ShockwaveFlash1.StopPlay

End Sub

后退按钮的代码：

Private Sub CommandButton3_Click()

Slide1.ShockwaveFlash1.Rewind

End Sub

4．观看放映体验效果