Macro to run Windows Media Player

[GoodmanJim]

I have a series of reports in mp3. I would like to create a screen of buttons to play the reports.

I can make the buttons, but have no idea on how to write a macro to run Windows Media Player from the buttons.

Can someone help me?

Thank you in avdance
Jim Goodman

 

[Gary McMaster]

A simple way would be to use one of the autoshapes for the button and simply hyperlink to the .mp3 file.

Gary

 

[GoodmanJim]

Thanks Gary, but I make it to simple in my explanation. I have one button of one page to "Play report". The Excel page changes contain based on what the person in looking for and button will remain the same for all pages. Therefore I run a macro to find the report with a extract of that report and on that common page is a button to "Play Report". The button is on that common page.

Thanks
Jim

 

[russellrichter]

Jim,

In general, if you want to launch a program from within VBA, you can use the SHELL command. It can launch Windows Media Player and automatically play whatever file you tell it to within the VBA macro.

Private Sub CommandButton1_Click()
    FileToPlay = """C:\Documents and Settings\RuRichter\Desktop\rainreport.mp3"""
    Shell "C:\Program Files\Windows Media Player\wmplayer /play /close " & FileToPlay
End Sub

Your path and/or filename will likely have spaces in it, so put triple double quotes around the path/filename. It will look like this:

There are 3 quotes at the end--two for the path/filename and one to enclose the Shell argument.

Here are some other switches you may need to use for your Shell command:
/open: Open the file, don't automatically start playing.
/play: Start playing the file as soon the player is launched.
/close: Close the player after playback (only works when used with /play).
/fullscreen: Start the file in full-screen mode.
/new: Use a new instance of the player.

HTH
Russ

 

[GoodmanJim]

Thanks Russ that helped a lot.

Now how do I run a group of reports in a folder?

Jim

 

[malmattos]

Jim,

In general, if you want to launch a program from within VBA, you can use the SHELL command. It can launch Windows Media Player and automatically play whatever file you tell it to within the VBA macro.

Private Sub CommandButton1_Click()
    FileToPlay = """C:\Documents and Settings\RuRichter\Desktop\rainreport.mp3"""
    Shell "C:\Program Files\Windows Media Player\wmplayer /play /close " & FileToPlay
End Sub

Your path and/or filename will likely have spaces in it, so put triple double quotes around the path/filename. It will look like this:

There are 3 quotes at the end--two for the path/filename and one to enclose the Shell argument.

Here are some other switches you may need to use for your Shell command:
/open: Open the file, don't automatically start playing.
/play: Start playing the file as soon the player is launched.
/close: Close the player after playback (only works when used with /play).
/fullscreen: Start the file in full-screen mode.
/new: Use a new instance of the player.

HTH
Russ

is it possible for this method to open the player at a certain time of the song?
and if not, do you know any way to do this?