怎样使用VBA控制Flash的播放？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub CommandButton1_Click()  '暂停

 

Me.ShockwaveFlash1.Playing=False

 

End Sub

 

Private Sub CommandButton2_Click()  '播放

 

Me.ShockwaveFlash1.Playing=True

 

End Sub

 

Private Sub CommandButton3_Click() '重新播放

 

Me.ShockwaveFlash1.FrameNum=1

 

Me.ShockwaveFlash1.Playing=True

 

End Sub

 

Private Sub CommandButton4_Click() '停止播放

 

Me.ShockwaveFlash1.FrameNum=0

 

Me.ShockwaveFlash1.Playing=False

 

End Sub

 

Private Sub CommandButton5_Click()  '下一帧

 

Me.ShockwaveFlash1.FrameNum=Me.ShockwaveFlash1.FrameNum+1

 

End Sub

 

Private Sub CommandButton6_Click()  '前一帧

 

Me.ShockwaveFlash1.FrameNum=Me.ShockwaveFlash1.FrameNum-1

 

End Sub

 

Private Sub UserForm_Initialize()

 

With Me.ShockwaveFlash1

 

If .Movie="" Then        '如果Flash控件未插入影片

 .Movie="d:\知心爱人.swf"  '为其指定新影片地址

 

  .EmbedMovie=True      ' 影片嵌入到控件中

 

  .Left=0              '左边距设置为0

 

  .Top=0               '上边距设置为0

 

    End If

 

End With

 

End Sub

5、用快捷键F5运行窗体，窗体中的Flash开始播放，如图