如何在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动画。
阅读:2097
上一则:ppt色彩搭配原理与技巧
下一则:在工作表中添加窗体控件
|