播放Flash文件

1、技巧1播放Flash文件如果需要在工作表中播放Flash文件，那么可以使用 ShockwaveFlash控件。步骤1,在工作表中单击菜单“视图” 一 “工具栏” 一 “控件工具箱” 一 “其他控件”，选择ShocKwave Flash Object ”后在工作表中拖动添加 ShockwaveFlash 控件，如图1-1 所示。RealPlayer QZ Contr&lRefEdit. Ctrl triRemtelEktcpClientHost ClawsRotiteFvr Cla.EESavijpeg. SavJpScaleEvr ClassScriptCcntrol ObjectSearch

2、 AasiEtaiit ControlSeleutFile ClassSetBvr Class151个控件图 1-1 添力口 ShockwaveFlash 控件如果“其他控件”中没有该控件，请参阅 错误！未找到引用源。对其进行注册，ShockwaveFlash 控件的文件名为 Flash9d.OCX 。步骤2,在设计模式下右键单击ShockwaveFlash 控件，选择属性，设置 ShockwaveFlash 控件的 Base属性和 Movie属性为 Flash文件所在的路径，设置 Embedmovie 属性为 True,使Flash文件嵌入到 Excel中，如图 1-2所示。晅Sh.o ck

3、w aveFl ashl Sho ckw aveFl ash. 按字理序1按分类序1（自定义）AAli gjiMode0AllowFllS creenfalseAll owHe tw orki ngallAllowScrip七Ac cessBoundCol or-1BaseE4VBA常用技巧T示例文件T第曰章控件与用尸窗体上技巧1所播敬Flazh文件任am swf眄ColorDevi c eFontFalseTrutFlashVarsFrameMwi1LoopTrutlenuTrueMovieE:VB4常用技巧，示例文怦、第8章控件与用户窗体技巧IW播放F1K史件Em.Hovi eData1

4、Fl”】昵TruevjProfileFalseProfiltAddrtf sProfileFort0Quality0Quali LyELowS AlignScaleShowAllS c al eMo de0Iru图1-2 设置ShockwaveFlash 控件属性可以使用代码设置 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 ”文件