The playback of Flash animation in PowerPoint courseware

Insert Flash Movie

Click the View/Toolbar/Control Toolbox, select other controls/shockwave Flash Object, and drag a box with the mouse in the slide to resize it. In this way, we insert a control into a flash control, select the current control, in the Properties panel is set as follows: "Movie" to fill in the desired Flash movie name, "name" with the default "ShockwaveFlash1", This name is used in later VBA programming.

Insert a command button

1. Make (play) button

Select command button in the Control Toolbox and drag on the slide to drag out a command button. Resize it, and in the Properties panel, type "Cmd_play" in "Name" and "Play" in Caption. Double-click the button to enter the VBA editing window and enter the following:

Private Sub cmd_play_click ()

shockwaveflash1.playing = True

End SUB

2. Make (pause), (forward), (back), (return), (end) button

Button production method ditto. The Properties panel is set as follows: The pause button has a name of Cmd_pause, Caption is paused, the Forward button button has a name of Cmd_forward, Caption is forward, and the back button has a name of Cmd_ Back "," Caption "as" backward ", return button's name is" Cmd_start "," Caption "is" return ", End button's name is" Cmd_end "," Caption "is" end ". The

adds VBA to each button, followed by the following commands:

Private Sub cmd_pause_click ()

shockwaveflash1.playing = False

En D Sub

Private Sub cmd_forward_click ()

Shockwaveflash1.framenum = shockwaveflash1.framenum +

shockwaveflash1.playing = TrUE

End Sub

Private Sub cmd_back_click ()

Shockwaveflash1.framenum = shockwaveflash1.framenum-3 0

shockwaveflash1.playing = True

End Sub

Private Sub cmd_start_click ()

ShockwaveFlash1 . Framenum = 1

shockwaveflash1.playing = True

End Sub

Private Sub cmd_end_click ()

Shockw Aveflash1.framenum = Shockwaveflash1.totalframes

End Sub

Description: In the (forward), (back), (back) button, followed by a play command, is because in the actual application, found that if the following does not play the command, Flash video will stop playing, so this sentence is absolutely indispensable. Tutorial

3. Play Slide

See if the button can control the movie? What the? No response, that must be your macro security is set too high, click Tools/Macros/security, and set security level to low. Turn on PowerPoint again, OK.