ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 37868|回复: 71

excel中制作背景音乐三法

[复制链接]

TA的精华主题

TA的得分主题

发表于 2004-4-20 09:25 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖已被收录到知识树中,索引项:媒体交互应用

一、将WAV文件作为背景音乐:   Option Explicit   Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As  Long, ByVal dwflags As Long) As Long   Sub g()   PlaySound ThisWorkbook.Path + "\s4.wav", 0&, &H1   End Sub 如要进行循环播放,可将&H1改为&H0 or &H8 由于WAV文件的太大,所以一般不宜将其作为背景音乐,只将其调用特定的短声效,例如:掌声,打碎玻璃声等短音效。 二、将MID文件作为背景音乐   Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long   Sub yybj()   ReturnSoundValue = mciExecute("open " &ThisWorkbook.Path & "\s4.MID ALIAS rsv") '注意open后有一空格   mciExecute "play rsv"   End Sub   '关闭背景音乐   Sub gb()   mciExecute "close rsv"   End Sub   上述方法只能播放一次MID音乐,如要再次播放,又要运行yybj,很不好,下面介绍一种很特别的办法,此办法是本人通过分析《华容道》(ldhyob版作品)代码游戏得出来的。   原理:由于在frontpage中的背景音乐是可以循环播放的,我们可以通过EXCEL中的Microsoft Web控件调用frontpage则可。   方法:   1、先新建一个文件夹,在里面放置一个MID文件,假设其名字是4.MID,再在文件建产一个EXCEL文件,两个frontpage文件。   2、frontpage中制作背景音乐:   将一个frontpage命名为“音乐.htm”,另一个命名为“停止音乐.htm”。   停止音乐文件是一个空文件。   音乐文件可以这样来制作,将其打开,点击右键,在出现的对话框中选择网页属性,在“常规”-“背景音乐”-“位置”中填入“4.MID”,点击确定。再将文件保存。   3、在EXCEL中通过Microsoft Web控件调用“音乐”,“停止音乐”。   A、右击工具栏,在出现的菜单中选择“Visual Basic”,出现“Visual Basic”工具栏,呵呵,我不懂说了,请看图吧:

     

  在这儿我们要注意的是需将Microsoft Web控件尽可能缩得最小,让人看不出它的存在为好!   好了,下面我们进入编程阶段了。   B、进入VB编辑器,双击工程管理器中的thisworkbook,录入下面代码     Private Sub Workbook_Open()     WebBrowser1.Navigate ThisWorkbook.Path & "\音乐.htm.htm"     End Sub 保存代码。   以后每次进入该工作簿后,就会循环播放音乐啦。那么我不想听了怎么办?呵呵,运行下面代码就行了:   sub tzyy()   WebBrowser1.Navigate ThisWorkbook.Path & "\停止音乐.htm.htm"   end sub 这个方法只在当前工作表中有效,如果想在所有工作表中有效,可以考虑使用窗体来实现,原理和上面的方法是一样的,在窗体中加个Microsoft Web控件,并且将窗体的showmodal属性设为false。   

excel中制作背景音乐三法

excel中制作背景音乐三法

TA的精华主题

TA的得分主题

发表于 2004-4-20 09:45 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-4-20 09:54 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2004-4-20 10:26 | 显示全部楼层

偶的记忆力游戏V3.0就是使用了上面的两种办法来设置背景音乐和音效的,代码不加密。 http://2525.cn.gs/zylyx3.rar

[此贴子已经被作者于2004-4-20 10:26:58编辑过]

TA的精华主题

TA的得分主题

发表于 2004-4-20 14:05 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-4-20 16:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

ok

TA的精华主题

TA的得分主题

发表于 2004-4-20 16:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
有了背景音乐,我们的VBA就生动起来了! 好!

TA的精华主题

TA的得分主题

发表于 2004-9-6 18:52 | 显示全部楼层

一、将WAV文件作为背景音乐:   Option Explicit   Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As  Long, ByVal dwflags As Long) As Long   Sub g()   PlaySound ThisWorkbook.Path + "\s4.wav", 0&, &H1   End Sub 如要进行循环播放,可将&H1改为&H0 or &H8 ------------------------------------------------------------------------

这段代码,太好了。谢谢doyyi君

[此贴子已经被作者于2004-9-6 18:54:03编辑过]

TA的精华主题

TA的得分主题

发表于 2004-9-6 19:57 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2004-9-17 20:15 | 显示全部楼层

一、将WAV文件作为背景音乐:   Option Explicit   Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As  Long, ByVal dwflags As Long) As Long   Sub g()   PlaySound ThisWorkbook.Path + "\s4.wav", 0&, &H1   End Sub

以上是 doyyi 提供的在Excel的VBA中播放音乐的代码,好用。

请教:如何停止?先谢了。

[此贴子已经被作者于2004-9-17 20:17:08编辑过]
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 22:32 , Processed in 0.041792 second(s), 13 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表