VBA单击按钮播放音乐

不用用VBA就能实现。

第一种方法：

在本页面插入晌知音岩坦频，设置音频格式为单击开始、单击结束。

第二种方法：

插入形状里的动作按钮，名称叫“开始”，设置单击播放音乐，并且动画此“开始”消失，下一个按钮出宴枣消现。

再复制上一按钮为“结束”，上一按钮单击时出现，此按钮单击时结束上一声音，且结束消失，开始出现。

如果是用VBA播唯指放背景哗渣音乐，插入windows media player控件(activeX控件)。

举个例子：当工作表sheet1激活时就播放歌

Private Sub Worksheet_Activate()

WindowsMediaPlayer1.URL = a 'a为你需要播指芦配放的声音路径,网络音乐也可以

End Sub

在模块里添加对函数的声明：

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

调用代码示例：

Private Sub CommandButton1_Click()

    Call PlaySound("d:\Ring07.wav", 0&, &H0)

End Sub

相关PlaySound函数的使用说明：

参数lpszName表示声音名，闹雹可以是文件名，系统事件名或内存地址，

参数hModule只用于播放嵌入资源，其它的时候设置为0。

参数dwFlags是各种标志常量的组合，有下面一些常用的常量：

    SND_SYNC=&H0  同步播放，直到指定声音被播放，函数不会返回，不能跟SND_ASYNC一起使用

    SND_ASYNC=&返弯扒H1  异步播放，不管漏昌声音是否播放，函数立即返回程序，不能同SND_SYNC一起使用

    SND_NODEFAULT=&H2 如果指定声音不存在，如未设置此参数，将发出默认Beep声，设置了这个参数的话将不发出任何声音

    SND_LOOP=&H8  循环声音直至下次调用PlaySound函数

    SND_ALIAS=&H10000 lpszName指向注册表项目，也就是说播放系统声音，不要同SND_RESOURCE或SND_FILENAME一起使用

    SND_FILENAME=&H20000 声频文件的文件名，不要同SND_RESOURCE或SND_ALIAS一起使用

    SND_PURGE = &H40 用来停止当前播放的声音

---