如何在EXCEL中插入FLASH和导出EXCEL中的FLASH.doc

《如何在EXCEL中插入FLASH和导出EXCEL中的FLASH.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1、在EXCEL里插入FALSH打开“视图→工具栏→控件工具箱”面板，如下图所示：=选择“其他控件”→Shockwaveflashobject，在工作表里画个框，会出线一个斜十字交叉的矩形框。选中矩形框，右键→属性，填三项内容：（1）Base：填写flash文件的全名，比如clock20.swf（文件的扩展名.swf也要写上），如果flash文件和excel文件不在相同目录下的话，还要填写flash文件的完整路径名称。（2）Movie：填写方法与上面一致。（3）Embedmovie：是否嵌入flash文件，选择true。O

2、K,保存关闭EXCEL，然后重新打开就可以看到FLASH了。有时，你可能在打开文件时，会弹出以下的对话框：这是由于“宏”的安全级别设置太高的缘故，可以按如下方法改变“宏”的安全级别，选择：工具→宏→安全性：在弹出的画面设置相应的安全级别： 2、导出EXCEL中的FLASH（1）点击工具——>宏——>宏（2）弹出一个宏创建窗体,在窗口中输入宏名（例如：宏名：ExtractFlash）点击创建按钮。（3）弹出一个编程界面，在界面的中间有一个小窗口，在窗口中光标闪动处输入下面的程序段。DimtmpFileNameAsString

3、,FileNumberAsIntegerDimmyFileIdAsLongDimmyArr()AsByteDimiAsLongDimMyFileLenAsLong,myIndexAsLongDimswfFileLenAsLongDimswfArr()AsBytetmpFileName=Application.GetOpenFilename("officeFile(*.doc;*.xls),*.doc;*.xls",,"确定要分析的Office档")IftmpFileName="False"ThenExitSubmyFile

4、Id=FreeFileOpentmpFileNameForBinaryAs#myFileIdMyFileLen=LOF(myFileId)ReDimmyArr(MyFileLen-1)GetmyFileId,,myArr()ClosemyFileIdApplication.ScreenUpdating=Falsei=0DoWhilei

5、yArr(i+7)+CLng(&H10000)*myArr(i+6)+CLng(&H100)*myArr(i+5)+myArr(i+4)ReDimswfArr(swfFileLen-1)FormyIndex=0ToswfFileLen-1swfArr(myIndex)=myArr(i+myIndex)NextmyIndexExitDoElsei=i+3EndIfElsei=i+1EndIfLoopmyFileId=FreeFiletmpFileName=Left(tmpFileName,Len(tmpFileName)-4

6、)&".swf"OpentmpFileNameForBinaryAs#myFileIdPut#myFileId,,swfArrClosemyFileIdMsgBox"以"&tmpFileName&"名字保存"（4）按F5或按“运行：按钮运行宏。（5）弹出一个选择文件的窗口，选择你想要提取flash的excel文件，点击打开按钮。（6）这时会弹出一个提示窗口“以……名字保存”，点击确定。（7）在excel所在的位置会产生一个同名的flash文件。到此flash文件已经导出了。