Hi David,
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String _
, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long _
, ByVal hwndCallback As Long) As Long

Sub FullScreenAvi()
Const aviFile = "C:\Clock.avi" ' Modify as appropriate
Dim Cmd As String
Cmd = "play " & aviFile & " fullscreen "
mciSendString Cmd, 0&, 0, 0&
End Sub

Regards;
MP

"David" a écrit dans le message de
...
Greetings and TIA for your help.
Anyone got VBA code sugestions for opening and running a Windows AVI file from
and excel macro? (Would like to run in full screen mode and automatically close
and return to Excel at the end of the clip)