[[20120114193018]]　『音量を変更できますか？』（LALA）　ページの最後に飛ぶ

『音量を変更できますか？』（LALA）

こんにちは！

Option Explicit

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 Sub BGM()

        Dim SoundFile As String, rc As Long, myDate$

        SoundFile = "C:\重要ファイル\mci\ずっと好きだった.mp3"

        rc = mciSendString("Play " & SoundFile, "", 0, 0)

        MsgBox "　   終了しました。" & String(2, vbCrLf) & _
                    "　　確認して　登録を　押してください。"

        rc = mciSendString("Close " & SoundFile, "", 0, 0)

End Sub

今　音楽を聞いてます!

この音楽の、音を徐々に下げて　closeすることは、可能ですか？？

フェードアウトしたいです！

すみません！！

宜しくお願いします！！

Windows 7,Excel2010

何度もすみません。

プログラムが終わっていると

音量が元に戻ってほしいです！！！

宜しくお願いします。

（LALA）

 WindowsMediaPlayerコントロールを使ってみては？

 コントロールのバージョンによって、違いがありますが・・・。
 シートに貼り付けたそれの場合、

 シートモジュールに

 Option Explicit
 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 Sub test()
    Dim tm As Double
    tm = [now()] + TimeValue("00:00:15")
    Dim vol As Long
    With Me.WindowsMediaPlayer1
       .URL = "d:\song.mp3"
       .settings.volume = 60
       With .Controls
          .Play
       End With
       Do Until [now()] >= tm
          DoEvents
       Loop
       vol = .settings.volume
       Do Until vol < 0
          .settings.volume = vol
          Sleep 1000
          DoEvents
          vol = vol - 5
       Loop
       .Controls.stop
       .settings.volume = 60
    End With
 End Sub

 私の環境（Win2000　Excel2002）では、こんなコードで　演奏開始から１５秒後にフェードアウトして、
 終了しました。

 ichinose

 ごめんなさい！！

 わかりません！！

 Meキーワードが不正　とでます。

 教えてください。

（LALA)

 >Meキーワードが不正　とでます。
 提示したコードは、どこに記述しましたか？

 前投稿で
 >シートモジュールに
 と記述しましたが、APIを使っている方だったので、簡潔に記述しましたが、

 2010は、持っていないので手順は、申し上げられませんが、
 シートに　WindowsMediaPlayerコントロールは、貼り付けられていますね？

 このWindowsMediaPlayerコントロールを貼り付けたシートのモジュールに
 コードは、記述してください。

 Meキーワードは、オブジェクトモジュールでなければ、使用できませんので・・・。

 これで実行してみてください。

 ichinose

 こんにちは！！

 ＞と記述しましたが、APIを使っている方だったので、簡潔に記述しましたが

 うふふ。
 全くの素人です！！
 http://officetanaka.net/excel/vba/tips/tips22.htm

 ここから、引用しました!!

 エクセルの学校は、大好きで、ichinoseさんの　ファンでもあります！！

 ＞シートモジュールに

 これは解りましたが、

 見逃しました！！

 が、

 ＞WindowsMediaPlayerコントロールは、貼り付けられていますね？

 これはわかりませんでした！！

 が、

 http://office.microsoft.com/ja-jp/excel-help/HP010236683.aspx

 これを実行しました！！

 出来ました！！

 ありがとうございます！！

 また、わからなければ、ここに来ます！！

 ichinoseさん　これからも、頑張ってください！！

 何を？？　と　言われそうですがｗｗ

 失礼します!!

コメント返信：

[ 一覧(最新更新順) ]

[[20120114193018]] 『音量を変更できますか？』（LALA） ページの最後に飛ぶ

[[20120114193018]]　『音量を変更できますか？』（LALA）　ページの最後に飛ぶ