怎样使用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开始播放，如图