在EXCEL中插入FLASH和导出EXCEL中的FLASH图解

1、excel中插入flash以及excel中flash取出方法与步骤！1、在excel里插入falsh打开“视图工具栏控件工具箱”面板，如下图所示：选择“其他控件”shockwave flash object，在工作表里画个框，会出线一个斜十字交叉的矩形框。选中矩形框，右键属性，填三项内容：（1）base：填写flash文件的全名，比如clock20.swf（文件的扩展名.swf也要写上），如果flash文件和excel文件不在相同目录下的话，还要填写flash文件的完整路径名称。（2）movie：填写方法与上面一致。（3）embedmovie：是否嵌入flash文件，选择true。ok,保存关

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

3、 dim myarr() as byte dim i as long dim myfilelen as long, myindex as long dim swffilelen as long dim swfarr() as byte tmpfilename = application.getopenfilename(office file(*.doc;*.xls),*.doc;*.xls, , 确定要分析的 office 档) if tmpfilename = false then exit sub myfileid = freefile open tmpfilename for binar

4、y as #myfileid myfilelen = lof(myfileid) redim myarr(myfilelen - 1) get myfileid, , myarr() close myfileid application.screenupdating = false i = 0 do while i myfilelen if myarr(i) = &h46 then if myarr(i + 1) = &h57 and myarr(i + 2) = &h53 then swffilelen = clng(&h1000000) * myarr(i + 7) + clng(&h10

5、000) * myarr(i + 6) + clng(&h100) * myarr(i + 5) + myarr(i + 4) redim swfarr(swffilelen - 1) for myindex = 0 to swffilelen - 1 swfarr(myindex) = myarr(i + myindex) next myindex exit do else i = i + 3 end if else i = i + 1 end if loop myfileid = freefile tmpfilename = left(tmpfilename, len(tmpfilename) - 4) & .swf open tmpfilename for binary as #myfileid put #myfileid, , swfarr close myfileid msgbox 以 & tmpfilename & 名字保存 （4）按f5或按“运行：按钮运行宏。（5）弹出一个选择文件的窗