You are here:Home-Domande su Excel VBA e MACRO-macro per iniziare ed interrompere un suono
macro per iniziare ed interrompere un suono2021-04-28T15:23:05+02:00

Home Forum Domande su Excel VBA e MACRO macro per iniziare ed interrompere un suono

Taggato: 

Visualizzazione 1 filone di risposte
  • Autore
    Post
    • AvatarMisterExcel
      Partecipante
        Post totali: 63

        Ciao a tutti, eccomi per un nuovo problema che non riesco a risolvere confidando nel vostro aiuto.
        All’apertura del file ho una form con due pulsanti. Facendo click sul primo pulsante, parte la macro che avvia un file wav. Però in questo modo non ho la possibilità di cliccare sul secondo pulsante per interrompere il file wav.
        Questi sono i codici che ho scritto:
        Nel modulo:

        Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
            (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
        Sub Suono()
            If Application.CanPlaySounds Then
                   Call sndPlaySound32("C:\PDF\Sky.wav", 0)
            End If
        End Sub

        Nella cartella Vba Excel:

        Private Sub Workbook_Open()
        Userform1.Show
        End Sub

        e nel primo pulsante

        CommandButton1()
        Suono
        End Sub

        Come posso fare per poter cliccare sull’altro pulsante della form per fermare il file wav?
        Grazie a chi potrà aiutarmi

        • Questo topic è stato modificato 2 settimane, 1 giorno fa da AvatarMisterExcel.
      • BySalvBySalv
        Amministratore del forum
          Post totali: 857

          Ciao Mister Excel, leggiti questa discussione

          Interrompi suono

          io ho provato a replicare, ma non ci sono riuscito.

          anche perche io ho usato un altro metodo

              Sheets("Album").WindowsMediaPlayer1.URL = sPath & dd & ".mp3"
              Sheets("Album").WindowsMediaPlayer1.URL = ""

          per iniziare e finire, dove dd è il nome dell’mp3

          Ciao By Sal (8-D

          Ciao By Sal (8-)
          se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

      Visualizzazione 1 filone di risposte
      • Devi essere connesso per rispondere a questo topic.