Risultati da 1 a 10 di 10

Discussione: Inserimento file audio in foglio Excel



  1. #1
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Inserimento file audio in foglio Excel

    Buonasera a tutti.
    Vi ho premesso in un altro messaggio che voglio imparare e solo da Voi posso. Quesito?
    Come posso inserire un file audio (wav) su un foglio ed avere la sua esecuzione quando attivo una macro già esistente? Graie anticipatamene Michele

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1104
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Inserimento file audio in foglio Excel

    perché non tenere il file audio nel disco ed eseguirlo da excel ?
    comunque seleziona una cella, Inserisci, Oggetto, Da file e scegli il file wav, poi apri il registratore di macro e fai doppio clic sull'oggetto, chiudi il registratore ed avrai la tua macro.

  3. #3
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento file audio in foglio Excel

    Ciao patel grazie per avermi risposto. Ho fatto come hai detto ed ho creato la macro che ti allego
    Codice: 
    Sub Gong()
    '
    ' Gong Macro
    '
    '
        ActiveSheet.Shapes.Range(Array("Object 1556")).Select
        Selection.Verb Verb:=xlPrimary
    End Sub
    vorrei inserire questa macro in questa
    Codice: 
    Sub Vincitore()
    '
    ' Vincitore Macro
    '
    MsgBox [AB5]
        MsgBox " !!!!!!!! CONGRATULAZIONI !!!!!!!! "
        Range("AB5").Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 255
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    Call imageShow
    '
    End Sub
    Sub imageShow()
    With ActiveSheet.Shapes("Immagine 4")
       .Visible = True
       Pause = 15
       tnow = Timer
       Do While Timer < tnow + Pause
       DoEvents
       Loop
       .Visible = False
    End With
    End Sub
    Sub nascondi()
       ActiveSheet.Shapes("Immagine 4").Visible = False
    End Sub

  4. #4
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento file audio in foglio Excel

    Dimenticavo: quando aziono la macro Gong mi si apre media player

  5. #5
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1104
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Inserimento file audio in foglio Excel

    proprio per questo ti ho fatto la domanda "perché non tenere il file audio nel disco ed eseguirlo da excel ?"
    molto meglio non inglobare niente ed usare questo codice
    Codice: 
    Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Sub Gong()
        If Application.CanPlaySounds Then
               Call sndPlaySound32("F:\documenti\Musica\gong.wav", 0)
        End If
    End Sub

  6. I seguenti utenti hanno dato un "Like"


  7. #6
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento file audio in foglio Excel

    Scusami patel quel codice che mi hai dato dove lo devo inserire? Grazie

  8. #7
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1104
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Inserimento file audio in foglio Excel

    nello stesso modulo in cui hai le altre macro, però la riga con declare deve stare in alto, prima di tutte le altre sub.
    Ovviamente il percorso del file wav devi modificarlo.
    Per lanciare la sub gong inserisci nella sub Vincitore, nel punto che preferisci, la riga
    call gong

  9. #8
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento file audio in foglio Excel

    OK patel bravo come sempre, funziona benissimo. Un ultimo consiglio, se il file lo metto su un penna per utilizzarlo con un altro pc, devo mettere anche il wav e modificare il percorso giusto?

  10. #9
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1104
    Versione Office
    2010
    Likes ricevuti
    141
    Likes dati
    1

    Re: Inserimento file audio in foglio Excel

    giusto
    nell'altro caso non servirebbe traslocare il file wav, però non è simpatica l'apertura di mediaplayer

  11. #10
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    273
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Inserimento file audio in foglio Excel

    OK Grazie infinite. Lo posto come RISOLTO. A presto Michele

Discussioni Simili

  1. Inserimento immagine foglio Excel
    Di Paolerrai nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 31/03/17, 12:41
  2. [Risolto] Importare in un foglio Excel dati da file XML
    Di skattolo nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 15/03/17, 23:30
  3. Risposte: 3
    Ultimo Messaggio: 14/11/16, 22:00
  4. problema inserimento clip audio
    Di alexia10 nel forum Domande su Microsoft Power Point
    Risposte: 7
    Ultimo Messaggio: 24/10/16, 23:29
  5. Risposte: 2
    Ultimo Messaggio: 07/12/15, 12:55

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •