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

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
------------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
View this thread: http://www.excelforum.com/showthread...hreadid=511093

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
------------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
View this thread: http://www.excelforum.com/showthread...hreadid=511093

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
------------------------------------------------------------------------
dbarelli's Profile: http://www.excelforum.com/member.php...o&userid=31275
View this thread: http://www.excelforum.com/showthread...hreadid=511093

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.

"Larry" wrote:

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

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

"Larry" a écrit dans le message de news:
...
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

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

--
Don Guillett
SalesAid Software

"Larry" wrote in message
...
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