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