如何在vba中播放flash文件

2022年4月28日 作者： 来源：

如果需要在工作表中播放Flash文件，那么可以使用ShockwaveFlash控件。
步骤1，在工作表中单击菜单“视图”→“工具栏”→“控件工具箱”→“其他控件”，选择“ShocKwave Flash Object”后在工作表中拖动添加ShockwaveFlash控件。
如果“其他控件”中没有该控件，请对其进行注册，ShockwaveFlash控件的文件名为Flash9d.OCX。
步骤2，在设计模式下右键单击ShockwaveFlash控件，选择“属性”，设置ShockwaveFlash控件的Base属性和Movie属性为Flash文件所在的路径，设置Embedmovie属性为True，使Flash文件嵌入到Excel中。
可以使用代码设置ShockwaveFlash控件的各项属性，如下面的代码所示。
#001  Private Sub Workbook_Open()
#002      With Sheet1.ShockwaveFlash1
#003          .Base = ThisWorkbook.Path & "\face.swf"
#004          .Movie = ThisWorkbook.Path & "\face.swf"
#005          .EmbedMovie = True
#006      End With
#007  End Sub
代码解析：
工作簿打开时将ShockwaveFlash控件的Base属性和Movie属性设置为同一目录中的“face.swf”文件，设置Embedmovie属性为True。
退出设计模式后，将在工作表中显示Flash动画。