|
▼きゅうさん さん:
>VBAのマクロを使ってwaveファイルや、mp3などの音声ファイルを警告音として
>鳴らしたいのですが、どのようにすれば良いのか解りません。
>よろしくお願いします。
こんばんは
標準モジュールの先頭から貼り付けて下さい。
Declare Function mciSendString _
Lib "winmm.dll" _
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrreturnString As String, _
ByVal ureturnLength As Long, _
ByVal hwndCallback As Long) As Long
Declare Function mciExecute _
Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long
Private flg As Boolean
Sub Music_On()
Dim ret As Long
Dim sndStr As String
sndStr = "Open """ & ThisWorkbook.Path & "\I & I.mp3"" alias Misic"
If Not flg Then
If mciSendString _
(sndStr, vbNullString, 0, 0) = 0 Then
If (mciSendString("Play Misic Notify", _
vbNullString, 0, 0)) = 0 Then
flg = True
Else
ret = mciExecute("Close Misic")
End If
End If
End If
End Sub
Sub Music_Off()
Dim ret As Long
If flg Then
ret = mciExecute("Stop Misic")
ret = mciExecute("Close Misic")
flg = False
End If
End Sub
|
|