Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57249 / 76732

←次へ　｜　前へ→


	【24220】Re:音声ファイル

ウッシ - 05/4/15(金) 21:29 -


	引用なし

	パスワード

▼きゅうさんさん：
>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

0 hits

▼

【24219】音声ファイル きゅうさん 05/4/15(金) 21:06