播放声音而不中断其他播放声音（VBA）

Question

我有一个可以在PowerPoint演示文稿中播放声音的代码，但是如果我让它一个接一个地播放2种声音，则第一个声音将停止，而第二个声音将播放。所以第一个声音被第二个声音打断了。

我尝试使用不同的Flags做实验，但是我没有一个想要实现的。我当前正在使用SND_ASYNC标志。

这是当前代码（在模块中）：

#If VBA7 Then
Public Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
Public Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If

Sub playSound(SoundFile As String)
sndPlaySound32 SoundFile, SND_ASYNC
End Sub

我想要一个能播放声音的代码版本，仅使其在完成时停止并且不会被其他声音打扰。