salve
premesso che esistono metodi diversi da quelli che ti indicherò.
Per poter visualizzare una Gif Animata la mia soluzione ricorre all'oggetto ActiveX WebBrowser
per caricare il componente, Menù Visualizza>Barra degli strumenti>Casella degli strumenti
Clic sull'icona "Altri controlli" (Martello e chiave) dall'elenco scegliere "Microsoft WebBrowser" disegnare una finestra nel foglio. Nel Modulo del foglio inserisci queste due macro:
Private Sub Worksheet_Activate()
WebBrowser1.Navigate "c:\Tua directory\Tua Gif"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Me.WebBrowser1.Document.Body.Scroll = "no"
Me.WebBrowser1.Document.Body.Style.Border = "none"
End Sub
in questo modo ogni volta che verrà attivato il foglio comparirà la tua Gif animata.
Per inserire un brano musicale: con lo stesso procedimento di sopra carica il componente Activex
Windows MediaPlayer e lo posizioni in una parte remota del foglio a meno che tu non voglia avere a disposizione
i comandi di gestione del brano.
Nell'evento open del file inserisci quanto segue:
Private Sub Workbook_Open()
Sheets("foglio1").WindowsMediaPlayer1.URL = "C:\TuaDirectory\TuoMid.mid"
Sheets("foglio1").WindowsMediaPlayer1.settings.setMode "loop", True
End Sub
Nota: se non vuoi la ripetizione continua del brano elimina la riga Loop
in un modulo standard metti invece questa:
Declare Function sndPlaySound32 Lib "Winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub EseguiBrano()
sndPlaySound32 "c:\Tua directory\TuoMid.mid", 1
End Sub
Se infine non vuoi vedere per niente il controllo WindowsMediaPlayer, puoi settere la sua proprietà "Visible" a False
di più non so.
saluti
Giap
