ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Playing a sound file from Excel (https://www.excelbanter.com/excel-programming/353003-playing-sound-file-excel.html)

Larry

Playing a sound file from Excel
 
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[_7_]

Playing a sound file from Excel
 

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


dbarelli[_8_]

Playing a sound file from Excel
 

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


dbarelli[_9_]

Playing a sound file from Excel
 

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


dbarelli[_6_]

Playing a sound file from Excel
 
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



Michel Pierron

Playing a sound file from Excel
 
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





Don Guillett

Playing a sound file from Excel
 
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






All times are GMT +1. The time now is 09:38 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com