excelのマクロで音声の停止と再生

質問

excelのマクロでいくつかのwavファイルを音声再生途中で一時停止と、その途中からの音声再生はどのようにすればよいのでしょうか？

Declare Function PlaySound Lib "Winmm.dll" Alias "PlaySoundA" _
(ByVal pszSound As String, _
ByVal hmod As Long, _
ByVal fdwSound As Long) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Const SND_ASYNC = &H1& '再生後すぐに制御を戻す
Public Const SND_SYNC = &H0& '再生が完了するまで制御を戻さない

Private Function MusicLength(ByVal FilePath As String) As Date
Dim oSH As Object, oFS As Object, oFLD As Object, oF As Object
Dim sT As Date

Set oSH = CreateObject("Shell.Application")
Set oFS = CreateObject("Scripting.FileSystemObject")
Set oF = oFS.getfile(FilePath)
Set oFLD = oSH.Namespace(oF.ParentFolder.Path)
sT = CDate(oFLD.GetDetailsOf(oFLD.ParseName(oF.Name), 27))
MusicLength = sT + #12:00:01 AM#
End Function

Sub A列再生()
Dim En As Long, i As Long
Dim INF As String
Dim ML As Date, sT As Date

En = Range("A65536").End(xlUp).Row

For i = 2 To En
INF = ThisWorkbook.Path & "\ONSEI\" & Range("A" & i).Value & ".WAV"
ML = MusicLength(INF)
PlaySound INF, 0, SND_ASYNC '
sT = Now

Do Until Now > sT + ML
Sleep 100

回答No.1

NotFound404 · ベストアンサー

>音声再生途中で一時停止と、その途中からの音声再生
これは面倒かも。
前回のようにちょこっと手直しすれば済む問題ではありません。
mciSendString を使用することになるのかなと思います。
私も十分理解できているわけでは無いので参考リンクの紹介のみにて。
http://homepage1.nifty.com/rucio/main/Samples/s_mm1.htm
http://homepage1.nifty.com/rucio/main/technique/teq_1.htm
の解説。
http://pcdn.int21.co.jp/pcdn/vb/noriolib/vbmag/9802/mci/
の『高レベルMCIとは』から続く解説。
以上が役立つと思います。
何れもVB6での解説ですがVBAとはとても近いのでコードは流用できます。

お礼

ご回答ありがとうございます。
マクロを少し学びはじめた者としては少しレベルが高すぎて、次の一手が出ない状態です。
アドバイスのようにＶＢ６も勉強しようと思います。