播放Flash文件

1、技巧1播放Flash文件如果需要在工作表中播放Flash文件，那么可以使用 ShockwaveFlash控件。步驟1,在工作表中單擊菜單“視圖” 一 “工具欄” 一 “控件工具箱” 一 “其他控件”，選擇ShocKwave Flash Object ”后在工作表中拖動(dòng)添加 ShockwaveFlash 控件，如圖1-1 所示。RealPlayer QZ Contr&lRefEdit. Ctrl triRemtelEktcpClientHost ClawsRotiteFvr Cla.EESavijpeg. SavJpScaleEvr ClassScriptCcntrol ObjectSearch

2、 AasiEtaiit ControlSeleutFile ClassSetBvr Class151個(gè)控件圖 1-1 添力口 ShockwaveFlash 控件如果“其他控件”中沒有該控件，請參閱 錯(cuò)誤！未找到引用源。對其進(jìn)行注冊，ShockwaveFlash 控件的文件名為 Flash9d.OCX 。步驟2,在設(shè)計(jì)模式下右鍵單擊ShockwaveFlash 控件，選擇屬性，設(shè)置 ShockwaveFlash 控件的 Base屬性和 Movie屬性為 Flash文件所在的路徑，設(shè)置 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 設(shè)置ShockwaveFlash 控件屬性可以使用代碼設(shè)置 ShockwaveFlash控件的各項(xiàng)屬性，如下面的代碼所示。# 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代碼解析：工作簿打開時(shí)將 ShockwaveFlash 控件的Base屬性和Movie屬性設(shè)置為同一目錄中的 “face.swf ”文件