[原]如何将flash插入到Excel文件中

    看到网上流传的《【强者来】全球只有4个人通关的游戏!.xls》一个Excel文件,里面是一个flash小游戏,想弄明白flash是怎么嵌入到excel文档中呢!原来通过OLE对象将Flash文件插入到Excel文档中,步骤如下:

第1步 打开Excel文件,工具栏的空白处点击鼠标右键,选【控件工具箱】,调出控件工具箱;


[原]如何将flash插入到Excel文件中

第2步 点击控制工具箱最右边的“其他控制项”按钮,选择“Shockwave Flash Object”项,表示要插入的Flash;


[原]如何将flash插入到Excel文件中

第3步 当鼠标变成一个小十字时,用鼠标在Excel编辑区中划一个大小适中的方框,用来显示Flash动画;

 


[原]如何将flash插入到Excel文件中

第4步 在画好的方框上点击鼠标右键选中属性菜单项,调出属性设置框。把“Movie”属性值设置为Flash网址或Flash硬盘地址,输入完毕关闭属性框;


[原]如何将flash插入到Excel文件中

第5步 回到Excel编辑页面,“控制工具箱”最左边的“退出设计模式”按钮,恢复一般模式,即可看到插入Excel的Flash。

[原]如何将flash插入到Excel文件中

通过这些步骤,Flash文件就插入到了Excel文档中,录制了宏,查看如下:

 

[原]如何将flash插入到Excel文件中[原]如何将flash插入到Excel文件中Sub Macro1()Sub Macro1()
[原]如何将flash插入到Excel文件中
' Macro1 Macro
[原]如何将flash插入到Excel文件中'
 宏由 Administrator 录制,时间: 2008-7-24
[原]如何将flash插入到Excel文件中'
[原]如何将flash插入到Excel文件中
    Application.CommandBars("Control Toolbox").Visible = True
[原]如何将flash插入到Excel文件中    ActiveWindow.SmallScroll Down:
=12
[原]如何将flash插入到Excel文件中    ActiveSheet.OLEObjects.Add(ClassType:
="ShockwaveFlash.ShockwaveFlash.9", _
[原]如何将flash插入到Excel文件中        Link:
=False, DisplayAsIcon:=FalseLeft:=48, Top:=204, Width:=239.25 _
[原]如何将flash插入到Excel文件中        , Height:
=153.75).Select
[原]如何将flash插入到Excel文件中
End Sub

有了宏代码的参考,应该可以轻松的用VBA代码实现上面的步骤,本人没做此练习。

顺便分享一个有趣的flash

 

 

 

转载于:https://www.cnblogs.com/salonliudong/archive/2008/07/24/1250355.html