如何在EXCEL中插入FLASH和導出EXCEL中的FLASH

1、工Hfr菌田4:窗口心耳目廠緊I卻第J火喏肝，叵沌旺跚七口3二*話Refldlt.Ctrl1、在EXCEL!插入FALSH打開“視圖-工具欄-控件工具箱”面板，如下圖所示:返:工i香玷式|."汕心j：分旬）史:口1隹'3格l>tfrl4i工回法:口I|li貓頁Jt仃頁型:白d,匡:*嗔即?理軒:亨-二-jj飛耳工子:口鼠擊笥不中印血透共肥衣府盧|J三愎式I會存悠W,焦窈|瞳窩Ih2ie-l2/Llieeta/0Arr?，h4t陋也豺LC；（!；-XXQ±J儲在aexocj.選擇“其他控件”-Shockwaveflashobject,在工作表里畫個框,會出線一個

2、斜十字交叉的矩形框。RfrgViECtrl"工武eDetkttentMaitCU>iKFIlnstlgrClass：gEiBnerSClasScrlptCt-ntrlObJe-ctSearchAssistantControlSelectF-agrKflnseCmtrlObjretLOtdEEtstusChe-:kC-ocitrolKl個控件選中矩形框，右鍵一屬性，填三項內容:(1) Base：填寫flash文件的全名，比如clock20,swf(文件的擴展名.swf也要寫上)，如果flash文件和excel文件不在相同目錄下的話,還要填寫flash文件的完整路徑名稱。(2) M

3、ovie：填寫方法與上面一致。(3) Embedmovie是否嵌入flash文件，選擇true。IShock.wavcFIsill1ashit字母序！技分類件I名耗Shodr*aveFl.!LShlA111gnSodc6*1E”F山KJ-rterjeAllowIrtTorkinillAll-ovSLrlptAccessAut-oL-oadlPalse后中。太豈i。河dCol口r_-1IMeC:D«cuient$and&tttl儂八一時EGColor.工電“l(fā)i二笆P沏|EiibaJoyleprueIFnablrdTnieHashV»iFraaeiun0HeIfhl1

4、65eft7.2LackedTrueLwTrueIthuTrue|tovieC：Di-Ci-HLCT11-uidJrttlrmrMllovlaD&ta.Flacrarat2Flay!hgTrueFrlntObjectTrue'，：門】FtlieFTofileAddressftqfilePortQuuiliity1QualLtyZHishempwLrEOK,保存關閉EXCEL然后重新打開就可以看到FLASH了有時，你可能在打開文件時，會彈出以下的對話框:Ahl-eresaft£胃鼻陷田2,血郭叱如皿克網皿賬比請車可就由£事廢導黑：1 .宏五蟲2貨豈三二U非=蒙

5、”.由月程定總笑若行中.坦*白瀕I月o切0下步*日目”：1.*工41=牝單翼(，北思業(yè)H*£.TI命中-+G*宣宅*T時4巾半土拈啊15望*H期設T*2,關際蚊科本廿莒乩上：十工”史主月在文的任訐式-'t臺椒國閉偃用悠空加1衽七行二回節(jié)均壬何宦用麗3&I.皆蹤寸M.Jf在.悵安里“X兄姆Iff牛二兒趕占工七色三工，三中“號事歸M.長古E：”這是由于“宏”的安全級別設置太高的緣故，可以按如下方法改變“宏”的安全級別，選擇：工具一宏一安全性：.口nE侍衛(wèi)£1，二中不中L-!.hrrr.F.2'弩.，升與匕V&活總看K次L.GL.Fliuky怙東H

6、Q'0i.I-.1F!手工帝國£；.".*Zft.J#（L.鏤，暇乩琳作中，|公式印次iw盅以*自定占工I：Q最相樸親舊.一安全懂瀚.力VisualBasic:琉*t器912】LF1I5毗msoft腳鈉版Biti）.在彈出的畫面設置相應的安全級別:2、導出EXCELS的FLASH（1）點擊工具一一宏一一宏工具（口期后1電_藥口遇用的AdflbrPDF卿/拼寫檢宣曲）*F74信息檢索隹3.llt+CMdc情i具檢蕓f©,*.|加工他XC）共旱工作孱化，保護舊.滕機用作覆）卜1_H_T_K公式宙核塞出ND毛（1）.Gt*FB自定義£1.錄制新惠tp.

7、安全性一.?1SU41a5配維輯需應）MHF11llcrfott靜本軾蛙（£）.llt+Shlft+FU（2）彈出一個宏創(chuàng)建窗體，在窗口中輸入宏名（例如：宏名:ExtractFlash）點擊創(chuàng)建按鈕。(3)彈出一個編程界面，在界面的中間有一個小窗口，在窗口中光標閃動處輸入下面的程序段。DimtmpFileNameAsString,FileNumberAsIntegerDimmyFileIdAsLongDimmyArr()AsByteDimiAsLongDimMyFileLenAsLong,myIndexAsLongDimswfFileLenAsLongDimswfArr()AsByt

8、etmpFileName=Application.GetOpenFilename("officeFile(*doc;*xls),*doc;*xls",”確定要分析的Office,3")IftmpFileName="False"ThenExitSubmyFileId=FreeFileOpentmpFileNameForBinaryAs#myFileIdMyFileLen=LOF(myFileld)ReDimmyArr(MyFileLen-1)GetmyFileld,myArr()ClosemyFileIdApplication.ScreenUpd

9、ating=Falsei=0DoWhilei<MyFileLenIfmyArr(i)=&H46ThenIfmyArr(i+1)=&H57AndmyArr(i+2)=&H53ThenswfFileLen=CLng(&H1000000)*myArr(i+7)+CLng(&H10000)*myArr(i+6)+CLng(&H100)*myArr(i+5)+myArr(i+4)ReDimswfArr(swfFileLen-1)Formylndex=0ToswfFileLen-1swfArr(mylndex)=myArr(i+mylndex)NextmylndexExitDoElsei=i+3EndlfElsei=i+1EndlfLoopmyFileld=FreeFiletmpFileName=Left(tmpFileName,Len(tmpFileName)-4)&".swfOpentmpFileNameForBinaryAs#myFileIdPut#myFileId,swfArrClosemyFileIdMsgBox"以“&tmpFileName&"名字保存(4)按F5或按“運行：按鈕