macro to play a vba file

[glad_ir]

Hello,

Please can somebody advise what code I should use to play a .wav file stored on my C drive when a shape is selected/clicked on?

Thank you,
Iain

 

[Trebor76]

Try this (obviously changing the full path to where the file resides first):

CreateObject("Shell.Application").ShellExecute "C:\Users\Iain\Song Title.wav"

Regards,

Robert

 

[glad_ir]

Try this (obviously changing the full path to where the file resides first):

CreateObject("Shell.Application").ShellExecute "C:\Users\Iain\Song Title.wav"

Regards,

Robert

Hi Robert, apologies for my slow response - this is perfect. Thank you.

One follow on question if I may......is there a way to play the wav file without it opening in front of the excel sheet?

thanks!
Iain

 

[Trebor76]

Hi Iain,

I'm sure there's a way but I'm not sure to be honest. You can use this that hides the file...

Option Explicit
Sub Macro1()

    Dim objWSH As Object

    Set objWSH = CreateObject("WScript.Shell")
    
    objWSH.Run ("""C:\Users\Iain\Song Title.wav"""), 0 '0 = Hide the file

    Set objWSH = Nothing

End Sub

...but to minimize the file you can try the Application.FollowHyperlink method but that produces a series of alerts that I believe can only be turned off via editing the registry (refer here).

Maybe someone on the forum will have a solution.

Regards,

Robert

 

[glad_ir]

Hi Iain,

I'm sure there's a way but I'm not sure to be honest. You can use this that hides the file...

Option Explicit
Sub Macro1()

    Dim objWSH As Object

    Set objWSH = CreateObject("WScript.Shell")
   
    objWSH.Run ("""C:\Users\Iain\Song Title.wav"""), 0 '0 = Hide the file

    Set objWSH = Nothing

End Sub

...but to minimize the file you can try the Application.FollowHyperlink method but that produces a series of alerts that I believe can only be turned off via editing the registry (refer here).

Maybe someone on the forum will have a solution.

Regards,

Robert

Thank you for your help Robert - much appreciated!

Best regards,
Iain