Excel中“集成”背景音乐全攻略作者，笔者经常用Excel处理大量的数据，但时间久了总觉得Excel缺少点什么，如果能在一边操作Excel的同时一边能欣赏到美妙的音乐，那一定会使乏味的操作变得轻松愉快些。不少朋友可能会选择用第三方软件来播放音乐，如何才能让播放音乐这一功能“集成”到Excel中呢？笔者进行了一番有趣的尝试，一起来看看吧。

　　一、制作带背景音乐的

　　HTM文档

　　由于Excel菜单中不提供设置背景音乐的功能，所以我们首先借用FrontPage程序创建一个带背景音乐的空白网页。

　　打开FrontPage，右击网页空白处，选择“网页属性”命令，在“常规”选项卡中找到背景音乐的相关设置，浏览一首合适的音乐文件（如图1），确定后可单击页面左下角的“预览”标签听一下效果。保存时将网页保存到你的Excel文档所在的文件夹并命名为“PLAY.HTM”。

 

图1

　　再用FrontPage新建一个空白的网页文件，不做任何操作然后将其保存并命名为“STOP.HTM”。

　　二、设置Excel文档的背景音乐

　　打开一个常用的Excel文档（如“d:\工资表\工资表.xls"）,接下来要借用“控件工具箱”绘制一个网页浏览控件WebBrowser。

　　方法是：右击工具栏，选择“控件工具箱”命令，此时会出现“控件工具箱”工具栏。单击“控件工具箱”中的“其它控件”按钮，选择“Microsoft Web浏览器”选项（如图2），在文档中的空白处绘制一个浏览器对象，调整其位置和大小，最好远离工作表中的数据区域并让人看不到它的存在为宜。这样做的主要目的就是在文档中绘制了一个名为“WebBrowser1”的对象，以便后面的程序调用。

 

图2

　　按“Alt+F11”组合键打开VBE编辑器，在窗口左侧的工程资源管理器中双击当前工作簿中的“ThisWorkBook”,在其右侧的代码窗口中输入以下的代码：

　　Private Sub Workbook_Open()

　　Sheet1.WebBrowser1.Navigate "d:\工资表\PLAY.HTM"

　　End Sub

　　关闭VBE窗口返回到Excel文档中，保存文档。此时关闭该文档后再次打开我们就可以听到美妙的背景音乐了。

　　Cico提示：以上网页文档和音乐文件最好保存到与Excel文档相同的路径下，防止被误删除。如果要换另外一首背景音乐只需将音乐文件复制到该文件夹下并替换成原先指定的文件名就可以了。

　　三、控制背景音乐的播放

　　上面的设置会使文档一打开时就自动播放背景音乐，如果能加上有效的控制，我们就可以有更多的选择机会了。

　　方法是：借助“控件工具箱”绘制两个命令按钮，将其Caption属性分别设置为“播放音乐”和“停止播放”（如图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

　　关闭代码窗口并返回到Excel文档中，此时单击“播放音乐”按钮就可以播放背景音乐，单击“停止播放”按钮就听不到背景音乐了（因为此时调用的是空白的网页文件“STOP.HTM”）。

　　Cico提示：当这两个按钮出现在表格中时，默认是可以被打印的（预览时可以看到），如果不希望被打印出来，可右击按钮，选择“设置控件格式”命令，在弹出的“设置控件格式”对话框中切换到“属性”选项卡，去掉“打印对象”复选框的选中状态就可以了（“窗体”工具箱中的“按钮”默认是不被打印出来的）。

　　另外，感兴趣的朋友还可以将这些代码创建好后指定给自定义的工具栏按钮，这样以后打开任何一个Excel文档都可以听到想听的背景音乐了。

    注：感觉挺有意思！但感觉其灵活性不足！
其实只要用VBA写出这个包括背景音乐的网页文件，即可以灵活方便的实现上面的构想！再添点油，加点佐料，一个加载宏就成了：） ，点击下载