Playing a sound file from Excel

[Guest]

Here's what I'm trying to do - any help is appreciated.

I have an Excel workbook with several worksheets. I want an audio file (in
..wma format) to start playing when I activate a worksheet. I've been able to
play a .wav file using the sndPlaySound32 dll but it doesn't seem to work
with a .wma file.

Any suggestions??

Thanks in advance,
Larry

 

[dbarelli]

One solution could be inserting the WMA fila as an object and call it
from the code with:

'Replace "Object 4" with the name of your object
ActiveSheet.Shapes("Object 4").Select
Selection.Verb Verb:=xlPrimary

...the only thing is that it will be open on your default player.

Regards.

 

[dbarelli]

One solution could be inserting the WMA fila as an object and call it
from the code with:

'Replace "Object 4" with the name of your object
ActiveSheet.Shapes("Object 4").Select
Selection.Verb Verb:=xlPrimary

...the only thing is that it will be open on your default player.

Regards.

 

[dbarelli]

One solution could be inserting the WMA fila as an object and call it
from the code with:

'Replace "Object 4" with the name of your object
ActiveSheet.Shapes("Object 4").Select
Selection.Verb Verb:=xlPrimary

...the only thing is that it will be open on your default player.

Regards.

 

[Guest]

One solution could be inserting the WMA fila as an object and call it from
the code with:

'Replace "Object 4" with the name of your object
ActiveSheet.Shapes("Object 4").Select
Selection.Verb Verb:=xlPrimary

....the only thing is that it will be open on your default player.

Regards.

 

[Michel Pierron]

Hi Larry;
(sFile = Full name of wma file)

Private Sub WMAPlay(sFile$)
If Len(Dir(sFile)) < 8 Then Exit Sub
CreateObject("WMPlayer.OCX").URL = sFile
End Sub

MP

 

[Don Guillett]

put this in a REGULAR module

Option Private Module
Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub playmysound()
SoundName$ = "c:\TakeFive\TakeFive.wav"
'SoundName$ = "c:\" & [myfolder] & "\" & [myfile] & ".wav"
wFlags% = SND_ASYNC Or SND_NODEFAULT
counter = 0
Do Until counter = [timestoplay]
x% = sndPlaySound(SoundName$, wFlags%)
counter = counter + 1
Loop
End Sub