Simone
随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA控制Flash的播放？
首先在开发工具中打开VBA编辑器
在单元格区域当中输入一些内容作为例子
在VBA编辑器中插入模块
在模块当中输入如下代码，然后运行
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
