看到網上流傳的《【強者來】全球只有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
' 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: