ses ekleme

[xxihsidxx]

herkese iyi geceler
excele ses kaydedici ile almış olduğum sesi eklemek istiyorum.
bununla ilgili formda arama yaptım.aşağıdaki kodları buldum.ama dosya yolunun koda nasıl ekleneceğini bilmediğim için başaramadım.dosyanın konumu C:\Documents and Settings\ihsid\Desktop
yardımcı olacak arkadaşlara şimdiden teşekkürler
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub Ses()
Call sndPlaySound32("C:\windows\media\Notify.wav", 2)
End Sub
Sub Autpen ()
Call Ses
Call Ses
End Sub

 

[aliakgul]

Declare Function sndPlaySound32 Lib "winmm.dll" _ 
Alias "sndPlaySoundA" (ByVal lpszSoundName _ 
As String, ByVal uFlags As Long) As Long 
Sub Ses() 
Call sndPlaySound32("C:\Documents and Settings\ihsid\Desktop \müzik.wav", 2) 
End Sub 
Sub Auto_Open () 
Call Ses 
Call Ses 
End Sub

Sanırım böyle olması gerekiyor, ancak müzik kelimesinin yerine senin kullanacağın wav dosyasının adını yazmalısın...

 

[dEdE]

Sayın xxihsidxx bir süredir forumda yok galiba. Başka bir başlıkta sorduğu benzer sorusuna cevap vermiştim.

http://www.excel.web.tr/viewtopic.php?t=17616&start=15

Saygılar.