Per Prima Cosa Vorrei fare i Miei Più Sinceri Auguri di Buone Feste a tutti e un Felice Anno Nuovo .
Mi Chiamo Maurizio ; Vi Scrivo in quanto Vorrei Riuscire a Risolvere questo problema in Excel .
il Mio Problema e Questo : Nella mia Cartella di Lavoro ho Inserito un Filmato ( AVI ) e il Codice che ho inserito in un Modulo e il Seguente :
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As _
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Sub Apri_Video()
Dim X As Long
X = ShellExecute(hWnd, "Open", _
ThisWorkbook.Path & "\Oggetti\Animazione.Avi", vbNullString, vbNullString, SW_NORMAL)
End Sub
Ora il Mio problema e questo : Tutto Ciò li per li ; Funziona benissimo , però quello che vorrei sapere e questo : c'è un sistema per riuscire a far si che quando il filmato Termina la sua Esecuzione ; tale oggetto si chiuda del tutto da sé , senza che Io tutte le volte debba Intervenire Manualmente !.
Vi Posso garantire che le ho provate Tutte , come ad esempio usare " End ; Close , Stop " ecc...! ma nulla da fare .
Vi Ringrazio sin da Ora per tutto l'aiuto che riuscirete a Drmi Sinceri saluti da A.Maurizio