- ベストアンサー
ＶＢＡの進行を止めずに音声ファイルを再生する方法
Ｅｘｃｅｌ ＶＢＡ ＶＢＡの進行を止めずに音声ファイルを再生する方法 現在ＶＢＡで以下のコードで音声を再生しています。しかしこの方法だとファイル再生中は プログラムの進行が停止します。進行を止めずに少なくとも１０秒程度のファイルを再生する方法をご教示ください。 なお条件によって都度違う音声ファイルを１回だけ再生します。 Public Declare Function 音 Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal ファイルの場所 As String, ByVal 制御フラグ As Long) As Long Public a As Long 'aは音声を出す値を返すための変数 a = 音("C:\短メロ\音声ファイル名.wav", 2)
- NazeTarou
- お礼率56% (14/25)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- himajin100000
- ベストアンサー率54% (1660/3060)
http://msdn.microsoft.com/en-us/library/ms713269%28VS.85%29.aspx いくつかは知らないがSND_ASYNCに対応する値を第二引数に与えればよいようです。 #いくつか知らないので検証はしてない #なお、sndPlaySoundは後方互換用に残してある関数らしくPlaySoundを使って欲しい、とMSDNに書かれていました。
お礼
himajin100000さん早速回答していただきありがとうございます。 PlaySound を研究して試して見ます。 ありがとうございました。
関連するQ&A
- ＶＢＡのwav操作ついて！！
エクセルのＶＢＡでプログラムを作っているのですが、wavを操作することに関してわからないことがあります。 (general）に -------------------------------------------------------- Private 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 Private Const FILE001_NAME As String = "C:\001.wav" Private Const FILE002_NAME As String = "C:\002.wav" ・・・ ------------------------------------------------------- というのを入れていまして、音を出したいところで Call mciSendString("play """ & FILE○_NAME & """", "", 0, 0) という方式でwavを再生させようと思っています。 ここで、FILEのあとをワークシート１上のA1セル上の数字に変えたいと思います。つまり、A1セル内の数（乱数で1～100のいずれかを表示させています）を○のところに入れるにはどうすればいいでしょうか？ どなたかおわかりになる方、教えてください。お願いいたします。
- ベストアンサー
- Visual Basic
- エクセル２０１０ ＶＢＡのサウンドの宣言
エクセル２００７でＶＢＡをプログラミングして使っています。 ２０１０で同じＶＢＡを走らすと Public Declare Function apisndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _ (ByVal FileName As String, ByVal SND_ASYNC As Long) As Long とＳＯＵＮＤの記述の宣言の Function のところで強調表示が出てエラーになります。 ２００７、２００３等ではエラーは出ず使えたのですが、書き換える必要があるようです。 前に進めず困っています。どなたかご教授をよろしくお願いします。
- 締切済み
- その他MS Office製品
- ｖｂａで鳴らした音楽を止めたい
ｖｂａのAPIで音楽を鳴らした後、 曲が終わる前に、ｖｂａで終了させたいのですが Option Compare Database Option Explicit 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 Sub test() Dim mySoundFile As String Dim rc As Long mySoundFile = "C:\tset.mp3" rc = mciSendString("Close " & mySoundFile, "", 0, 0) End Sub これを実行してもエラーにもならないし音楽も鳴り止まないのですが どこがまちがってますか？ "C:\tset.mp3"で音楽を再生したので、 "C:\tset.mp3"は存在します。
- ベストアンサー
- オフィス系ソフト
- midi再生について
visual basicを使ってゲームを作成しております。 あるサイトを見てmidiの再生をやってみようと下記のコードを入力しました。 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 Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long) Sub MCI_Test() Dim P As String, filename As String filename = "sample.mid" P = """" & ActiveWorkbook.Path & "\" & filename & """" Call mciSendString("open " & P & " alias sample", vbNullString, 0, 0) DoEvents Call mciSendString("play sample from 0", vbNullString, 0, 0) Call Sleep(10000) Call mciSendString("close sample", vbNullString, 0, 0) End Sub このコードでfilenameの部分を変更しwavファイルのsample.wavやMP3ファイルのsample.mp3は再生する事ができました。しかし、midiファイルはsample.midを同じフォルダ内に入れているにも関わらず全く音が鳴りません。どこが間違っているのでしょうか。教えてください。宜しくお願い致します。
- 締切済み
- Visual Basic
- ファイルを開いて１回しか再生されない
ＶＢＡで音楽を鳴らしたいのですが、 ファイルを立ち上げて音楽を鳴らすプロシージャーを一度実行すると、 もう何度Ｆ５を押しても実行されません。 しかしファイルを開きなおすとまた実行できます。でも１回限りです。 コードはこちらです。 ------------------------------------------------------------ Private 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 Sub PlaySound() Dim SoundFile As String, rc As Long SoundFile = "C:\【音楽】\test.mp3" If Dir(SoundFile) = "" Then MsgBox SoundFile & vbCrLf & "がありません。", vbExclamation Exit Sub End If SoundFile = Chr(34) & SoundFile & Chr(34) rc = mciSendString("Open " & SoundFile, "", 0, 0) rc = mciSendString("Play " & SoundFile, "", 0, 0) End Sub ------------------------------------------------------------ ２回目実行した際音楽が鳴らないからってファイルがありませんと表示されるわけでもないです。 当方の環境はＯＳＷＩＮ７、ＯＦＦＩＣＥ2007です。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 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
- ベストアンサー
- その他（プログラミング・開発）
- excelで音声再生時に並行して別の操作をしたい
下記のようなプログラムで音声再生をしていますが、再生が全部終了するまで別の操作ができません。再生と並行してスクロールなど別の操作もできるようにするにはどのように書き換えればよいでしょうか？ 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& '再生が完了するまで制御を戻さない Sub C列再生() EN = Range("A65536").End(xlUp).Row For I = 2 To EN INF = ThisWorkbook.Path & "\ONSEI-n\" & Range("C" & I).Value & ".WAV" PlaySound INF, 0, SND_SYNC '再生が完了するまで制御を戻さない Sleep 1000 '1000mS待ち Next I End Sub Sub A列再生() EN = Range("A65536").End(xlUp).Row For I = 2 To EN INF = ThisWorkbook.Path & "\ONSEI\" & Range("A" & I).Value & ".WAV" PlaySound INF, 0, SND_SYNC '再生が完了するまで制御を戻さない Sleep 1000 '1000mS待ち Next I End Sub
- ベストアンサー
- Excel（エクセル）
- VBAでSetTextColorがうまくいかない
EXCELのVBAでユーザーフォームを使ったグラフィック表示のプログラムを 作っているのですが、SetTextColorでテキスト色の設定をしようと してもうまくいきません。何故か設定しようとする色の値が無視されて 「1304008」が設定されてしまいます。(GetTextColorで確認) そしてそれ以降何を設定してもこの状態のままです。 何か考えられることがありますでしょうか。 下にそのプログラムを示します。 ちなみにSetBKColorやAngleArcなど他のグラフィック命令は問題なく 動いていてSetTextColorだけがうまくいってない状態です。 '------------------------------------------------- ' ユーザーフォーム用プログラム '------------------------------------------------- Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _ ByVal hwndParent As Long, _ ByVal hwndChildAfter As Long, _ ByVal lpszClass As String, _ ByVal lpszWindow As String) As Long Private Declare Function GetDC Lib "user32" ( _ ByVal hWnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" ( _ ByVal hWnd As Long, _ ByVal hdc As Long) As Long Private Declare Function SetTextColor Lib "gdi32" _ (ByVal hdc As Long, crColor As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" _ (ByVal hdc&, ByVal x&, _ ByVal y&, ByVal lpString$, ByVal nCount&) As Long Dim hWnd As Long Dim hdc As Long Public Sub UserForm_Activate() DoEvents hWnd = FindWindowEx(GetActiveWindow, 0, "F3 Server 60000000", "") hdc = GetDC(hWnd) ret = SetTextColor(hdc, RGB(255, 0, 0)) ret = TextOut(hdc, 0, 0, "abc", 3) Call ReleaseDC(hWnd, hdc) End Sub '-------------------------------------------------
- ベストアンサー
- Visual Basic
- midiの再生
道楽でVBを勉強してるものです。 VB5.0のLearning Editionを使っていますが、MIDIファイルを再生するにはどうしたらいいでしょうか。手探りで Private Declare Function MciExecute Lib"winmm.dll"(ByVal IpstrCommand As String) As long で mciExecute ("play C:\～.mid") を見つけてやってみたのですが再生が終わるまで鳴りっぱなしになってしまいました。 プログラムのBGMとして使用したいので、任意の時に止められて、繰り返し再生する方法を教えてください。
- ベストアンサー
- Visual Basic
- ネットのファイルをダウンロードする方法を教えてください。
web上のファイルをダウンロードするには Public Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long と宣言してURLDownloadToFileを使えばできることがわかりましたが、うまく行かないケースがあります。おそらく通常の右クリックでダウンロードするものではなく、URLを左クリックして行うものだからじゃないかと思います。いいアイディアはないでしょうか？？
- 締切済み
- Visual Basic
お礼
noah7150さん、さっそくご回答いただきありがとうございました。 長い間不便を我慢していましたが、どうしても少し長いファイルを再生したく投稿しました。 PlaySound を研究して使ってみます。