1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub CommandButton1_Click() '暂停Me.ShockwaveFlash1.Playing=FalseEnd SubPrivate Sub CommandButton2_Click() '播放Me.ShockwaveFlash1.Playing=TrueEnd SubPrivate Sub CommandButton3_Click() '重新播放Me.ShockwaveFlash1.FrameNum=1Me.ShockwaveFlash1.Playing=TrueEnd SubPrivate Sub CommandButton4_Click() '停止播放Me.ShockwaveFlash1.FrameNum=0Me.ShockwaveFlash1.Playing=FalseEnd SubPrivate Sub CommandButton5_Click() '下一帧Me.ShockwaveFlash1.FrameNum=Me.ShockwaveFlash1.FrameNum+1End SubPrivate Sub CommandButton6_Click() '前一帧Me.ShockwaveFlash1.FrameNum=Me.ShockwaveFlash1.FrameNum-1End SubPrivate Sub UserForm_Initialize()With Me.ShockwaveFlash1If .Movie="" Then '如果Flash控件未插入影片.Movie="d:\知心爱人.swf" '为其指定新影片地址 .EmbedMovie=True ' 影片嵌入到控件中 .Left=0 '左边距设置为0 .Top=0 '上边距设置为0 End IfEnd WithEnd Sub
5、用快捷键F5运行窗体，窗体中的Flash开始播放，如图
