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

    看到網上流傳的《【強者來】全球只有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/salonliudong/archive/2008/07/24/1250355.html