excel中插入falsh游戏&导出excel中游戏方法

excel中插入falsh游戏&导出excel中游戏方法

ID:37912724

大小:16.04 KB

页数:3页

时间:2019-06-02

excel中插入falsh游戏&导出excel中游戏方法_第1页
excel中插入falsh游戏&导出excel中游戏方法_第2页
excel中插入falsh游戏&导出excel中游戏方法_第3页
资源描述:

《excel中插入falsh游戏&导出excel中游戏方法》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、excel中插入falsh游戏&导出excel中游戏方法2010年03月25日星期四上午10:131、在EXCEL里插入FALSH打开“视图→工具栏→控件工具箱”面板,如下图所示:选择“其他控件”→Shockwaveflashobject,在工作表里画个框,会出线一个斜十字交叉的矩形框。选中矩形框,右键→属性,填三项内容:(1)Base:填写flash文件的全名,比如clock20.swf(文件的扩展名.swf也要写上),如果flash文件和excel文件不在相同目录下的话,还要填写flash文件的完整路径名称。(2)Movie:填写方法与上面一致。(3)Embedmovi

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

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

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

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)&".swf"OpentmpFileNameForBinaryAs#myFileIdPut#myFileId,,swfArrClosemyFileIdMsgBox"

6、以"&tmpFileName&"名字保存"(4)按F5或按“运行:按钮运行宏。(5)弹出一个选择文件的窗口,选择你想要提取flash的excel文件,点击打开按钮。(6)这时会弹出一个提示窗口“以……名字保存”,点击确定。(7)在excel所在的位置会产生一个同名的flash文件。

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。