VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Öffnen einer Arbeitsmappe WAV-Datei abspielen

Gruppe

Ereignis

Bereich

Open

Thema

Beim Öffnen einer Arbeitsmappe WAV-Datei abspielen

Problem

Wie kann ich beim Start einer Arbeitsmappe automtisch eine WAVDatei abspielen lassen?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.




ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
  Call WAValsStart
End Sub

StandardModule: basMain

Declare Function sndPlaySound32 Lib "winmm.dll" _
   Alias "sndPlaySoundA" (ByVal lpszSoundName _
   As String, ByVal uFlags As Long) As Long

Sub WAValsStart()
   On Error GoTo ERRORHANDLER
   Call sndPlaySound32("c:\windows\drumroll.wav", 1)
   End
ERRORHANDLER:
   MsgBox "Bitte Pfad und Namen der WAV-Datei anpassen!"
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open