|
Excel中“集成”背景音樂全攻略作者，筆者經(jīng)常用Excel處理大量的數(shù)據(jù)，但時間久了總覺得Excel缺少點(diǎn)什么，如果能在一邊操作Excel的同時一邊能欣賞到美妙的音樂，那一定會使乏味的操作變得輕松愉快些。不少朋友可能會選擇用第三方軟件來播放音樂，如何才能讓播放音樂這一功能“集成”到Excel中呢？筆者進(jìn)行了一番有趣的嘗試，一起來看看吧。
一、制作帶背景音樂的
HTM文檔
由于Excel菜單中不提供設(shè)置背景音樂的功能，所以我們首先借用FrontPage程序創(chuàng)建一個帶背景音樂的空白網(wǎng)頁。
打開FrontPage，右擊網(wǎng)頁空白處，選擇“網(wǎng)頁屬性”命令，在“常規(guī)”選項(xiàng)卡中找到背景音樂的相關(guān)設(shè)置，瀏覽一首合適的音樂文件（如圖1），確定后可單擊頁面左下角的“預(yù)覽”標(biāo)簽聽一下效果。保存時將網(wǎng)頁保存到你的Excel文檔所在的文件夾并命名為“PLAY.HTM”。
圖1 再用FrontPage新建一個空白的網(wǎng)頁文件，不做任何操作然后將其保存并命名為“STOP.HTM”。
二、設(shè)置Excel文檔的背景音樂
打開一個常用的Excel文檔（如“d:\工資表\工資表.xls"）,接下來要借用“控件工具箱”繪制一個網(wǎng)頁瀏覽控件WebBrowser。
方法是：右擊工具欄，選擇“控件工具箱”命令，此時會出現(xiàn)“控件工具箱”工具欄。單擊“控件工具箱”中的“其它控件”按鈕，選擇“Microsoft Web瀏覽器”選項(xiàng)（如圖2），在文檔中的空白處繪制一個瀏覽器對象，調(diào)整其位置和大小，最好遠(yuǎn)離工作表中的數(shù)據(jù)區(qū)域并讓人看不到它的存在為宜。這樣做的主要目的就是在文檔中繪制了一個名為“WebBrowser1”的對象，以便后面的程序調(diào)用。 圖2 按“Alt+F11”組合鍵打開VBE編輯器，在窗口左側(cè)的工程資源管理器中雙擊當(dāng)前工作簿中的“ThisWorkBook”,在其右側(cè)的代碼窗口中輸入以下的代碼：
Private Sub Workbook_Open()
Sheet1.WebBrowser1.Navigate "d:\工資表\PLAY.HTM"
End Sub
關(guān)閉VBE窗口返回到Excel文檔中，保存文檔。此時關(guān)閉該文檔后再次打開我們就可以聽到美妙的背景音樂了。
Cico提示：以上網(wǎng)頁文檔和音樂文件最好保存到與Excel文檔相同的路徑下，防止被誤刪除。如果要換另外一首背景音樂只需將音樂文件復(fù)制到該文件夾下并替換成原先指定的文件名就可以了。
三、控制背景音樂的播放
上面的設(shè)置會使文檔一打開時就自動播放背景音樂，如果能加上有效的控制，我們就可以有更多的選擇機(jī)會了。
方法是：借助“控件工具箱”繪制兩個命令按鈕，將其Caption屬性分別設(shè)置為“播放音樂”和“停止播放”（如圖3），雙擊這兩個按鈕并分別在其Click事件中加上下面的代碼：
圖3 Private Sub CommandButton1_Click()
Sheet1.WebBrowser1.Navigate "d:\工資表\PLAY.HTM"
End Sub
Private Sub CommandButton2_Click()
Sheet1.WebBrowser1.Navigate "d:\工資表\STOP.HTM"
End Sub
關(guān)閉代碼窗口并返回到Excel文檔中，此時單擊“播放音樂”按鈕就可以播放背景音樂，單擊“停止播放”按鈕就聽不到背景音樂了（因?yàn)榇藭r調(diào)用的是空白的網(wǎng)頁文件“STOP.HTM”）。
Cico提示：當(dāng)這兩個按鈕出現(xiàn)在表格中時，默認(rèn)是可以被打印的（預(yù)覽時可以看到），如果不希望被打印出來，可右擊按鈕，選擇“設(shè)置控件格式”命令，在彈出的“設(shè)置控件格式”對話框中切換到“屬性”選項(xiàng)卡，去掉“打印對象”復(fù)選框的選中狀態(tài)就可以了（“窗體”工具箱中的“按鈕”默認(rèn)是不被打印出來的）。
另外，感興趣的朋友還可以將這些代碼創(chuàng)建好后指定給自定義的工具欄按鈕，這樣以后打開任何一個Excel文檔都可以聽到想聽的背景音樂了。
注：感覺挺有意思！但感覺其靈活性不足！
其實(shí)只要用VBA寫出這個包括背景音樂的網(wǎng)頁文件，即可以靈活方便的實(shí)現(xiàn)上面的構(gòu)想！再添點(diǎn)油，加點(diǎn)佐料，一個加載宏就成了：） ，點(diǎn)擊下載 |
|
|
