AW: Wave überh. mögl. in Excel 2007?
28.02.2010 18:59:03
Josef
Hallo Max,
sicher geht das.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
'by Ramses
Declare Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Aufruf erfolgt mit z.B.
'=WENN(A1<0;SoundPlay(1);"")
'oder
'=WENN(A1<0;SoundPlay(1);WENN(A1>100;SoundPlay(2);"")
Function Soundplay(mySound As Integer)
Dim dummy As Long, strsounddatei As String
If waveOutGetNumDevs() <> 0 Then
Select Case mySound
Case 1
strsounddatei = "C:\WINDOWS\MEDIA\Chimes.wav"
dummy = sndPlaySound(strsounddatei, 1)
Case 2
strsounddatei = "C:\WINDOWS\MEDIA\Chord.wav"
dummy = sndPlaySound(strsounddatei, 1)
End Select
End If
End Function
Gruß Sepp