How to use a keyboard shortcut to play a specified audio file within a Macro

[Richard Motivator]

Please could someone kindly help with the macro code to play a sound in Excel without it leaving the sheet. I have tried so many options but none have worked. From what I've read, I understand that the best way is to use Windows Media Player.

Ideally I would like to use a keyboard shortcut say Ctrl+Shift+L and it play a specific audio file as specified within the macro. I'm just starting to learn Macros and VBA, please be gentle with me.

many thanks
Richard

[Logit]

.
Paste the following into a REGULAR module :

Please Login or Register  to view this content.

You can play the TADA sound file by pasting a COMMAND BUTTON on a sheet and attach it to the DPlaySound macro.


This resource can assist you in assigning key combinations to run the sound macro : https://www.rondebruin.nl/win/s4/win012.htm
There are other websites out there that cover the same type information. Google: run macro key combination

[Richard Motivator]

Thank you for your help. I have pasted that code but get a compilation error:

Only comments may appear after End Sub, End Function, or End Property

[Logit]

.

Option Explicit

Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub DPlaySound()
Dim PlaySound As Boolean
Call sndPlaySound32("C:\windows\media\tada.wav", 1)
End Sub

Please Login or Register  to view this content.

Paste the above, exactly as is, in a REGULAR MODULE. Do not have anything else above it or below it.

If necessary, place this code in a brand new module by itself.

[Richard Motivator]

Thank you very much, I now have it working!!

Could I kindly ask how I create another shortcut to stop it playing (in the case of a longer track)

[Logit]

.

Please Login or Register  to view this content.

[Richard Motivator]

Thank you for that, I can get them to work 'stand alone'. What I would like to do now, is to call the sound from one of my other subroutines. As you know just pasting it in causes compilation errors. I have also tried using the same shortcut letter as the other routine, but only the 'sound' one runs if I do this. Please could you help again

[Logit]

.
Let's use this as a sample :

Please Login or Register  to view this content.

In another macro you want to run the wave file shown above, it would look like this :

Please Login or Register  to view this content.

Keep in mind that FOO and MsgBox "Testing" are simply examples of code that might be found in another macro.
The important thing to know is ... to run the macro that plays the sound file, insert DPlaySound in the macro when you
want to play the sound.

[Richard Motivator]

Thank you, not sure exactly 'what's going on' but it works. I'm wondering if you'd mind showing me how to do something similar, but this time to play a video residing on my PC like the sound file. I'd like the video to play, but when finished to automatically come back to the worksheet. Do I need to 'embed' the video to do this, to avoid seeing the media player, or can it seamlessly play without that need?

many thanks
Richard

[Richard Motivator]

Re: How to use a keyboard shortcut to play a specified audio file within a Macro

Thank you, not sure exactly 'what's going on' but it works. I'm wondering if you'd mind showing me how to do something similar, but this time to play a video residing on my PC like the sound file. I'd like the video to play, but when finished to automatically come back to the worksheet. Do I need to 'embed' the video to do this, to avoid seeing the media player, or can it seamlessly play without that need?

many thanks
Richard