急！PPT中插入多个动画设置问题

yuequeye 发表于: 2009-9-23 16:15 来源: 扑奔PPT网

大家好，我在同一PPT中插入几个动画，从shockwave flash object 插入，有的动画的需要自动播放，有的需要手动播放，我将想自动播放的playing改为True时候，为什么想手动播放的flash动画的属性Playing也全部变成True，能分开设置吗？急

大家对急！PPT中插入多个动画设置问题的评论

1210858954 发表于 2009-10-02 18:12:32: 在你加的手动播放flash的地方加个动作开关应该可以
amwyq 发表于 2009-10-02 18:39:47: 如果你懂VBA，写几句代码分别控制这几个SWF的播放与停止甚至快进快慢，这是最好的。相关代码我在本论坛发过，你搜索一下吧
amwyq 发表于 2009-10-02 19:04:12: 还是给出代码并简单说明吧
Private Sub cmd_play_Click() 'cmd_play是播放按钮名称
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub

Private Sub cmd_pause_Click() 'cmd_pause是暂停按钮名称
ShockwaveFlash1.Playing = False '让ShockwaveFlash1影片停止
End Sub

Private Sub cmd_forward_Click() 'cmd_forward是快进按钮名称 ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum + 30 '让ShockwaveFlash1影片跳转到当前桢后30桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub

Private Sub cmd_back_Click() 'cmd_back是后退按钮名称
ShockwaveFlash1.FrameNum = ShockwaveFlash1.FrameNum - 30 '让ShockwaveFlash1影片跳转到当前桢前30桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub

Private Sub cmd_start_Click() 'cmd_start是开始按钮名称
ShockwaveFlash1.FrameNum = 1 '让ShockwaveFlash1影片跳转到第1桢处
ShockwaveFlash1.Playing = True '让ShockwaveFlash1影片播放
End Sub

Private Sub cmd_end_Click() 'cmd_end是结束按钮名称
ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames '让ShockwaveFlash1影片跳转到当最后一桢处
End Sub

注意：
cmd_end......
ShockwaveFlash1是可是自己定义的，不是一定要这样写