More Visual basic than verbal diarrhea

[Draccusfly]

I am putting together a Powerpoint presentation for a colleague (hence the title) and need to embed or otherwise make use of a video that has been supplied as a .MOV. As PP cannot make use of .MOV's without other intervention I am trying to create a button on the slide that, when clicked, will open up Quicktime and start the correct movie.

I have got as far as getting the button to start QT, but now i'm stuck...any help would be appreciated..

Dracc
ps here's what I have so far

Private Sub CommandButton1_Click()
Dim MyShell
Dim shell_cmd
shell_cmd = "quicktimeplayer.exe"
Set MyShell = CreateObject("WScript.Shell")
MyShell.Run shell_cmd, 1, 1
End Sub

 

[Macropod]

Hi Draccusfly

I'm not sure, but from what I've seen you could try:
shell_cmd = "quicktimeplayer.exe C:\path\filename.mov"