Excel - Como hacer que Excel reprodusca un video

hola Jovenes del lindo Foro les pido de su colaboracion para que me contestan esta interogante que intento hacer pero no se como se trata de:
como puedo hacer que excel abra un archivo de video pero con los comandos de Visual Basic (VB) quisiera saber como se hacer porque estoy en un proyecto que se me ocurriop cuando un gran maestro me estaba enseñando EXcel ayudenme plis
Gracias Por Leer
Espero Sus Respuestas
=)
=D
*-*

Hola Isaac:

El siguiente script abre un archivo de video utilizando Windows Media Player. Coloca la rutina en un módulo y la ejecutas asignando la ruta donde se encuentra el video.
---------------------------------------------------------------------------------->
<scritp>

Public Sub PlayMovie()
Dim sObject As String, sPathMovie As String

On Error GoTo x

'vars
sObject = "C:\Program Files\Windows Media Player\wmplayer.exe /play /close "
sPathMovie = "TuRutaArchivo\TuVideo.avi"

'show and play movie
Shell sObject & sPathMovie & ""

Exit Sub

x:

MsgBox "Error No: " & Err.Number & vbCrLf _
& "Mensaje:" & Err.Description, vbCritical, "Mensaje"

End Sub

</script>

---------------------------------------------------------------------------------->

Un saludo,