如何将flash插入到Excel文件中(转载。。)http://www.cnblogs.com/salonliudong/archive/2008/07/24/1250355.html...

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

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

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

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

 

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

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

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

 

Sub Macro1() Sub Macro1()
' Macro1 Macro
' 宏由 Administrator 录制，时间: 2008-7-24
'
    Application.CommandBars("Control Toolbox").Visible = True
    ActiveWindow.SmallScroll Down:=12
    ActiveSheet.OLEObjects.Add(ClassType:="ShockwaveFlash.ShockwaveFlash.9", _
        Link:=False, DisplayAsIcon:=False, Left:=48, Top:=204, Width:=239.25 _
        , Height:=153.75).Select
End Sub

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

顺便分享一个有趣的flash：

转载于:https://www.cnblogs.com/JemBai/archive/2008/08/06/1261874.html