Soru Userform üzerindeki commandbuton maus geldiğinde ses çalması

[vuranoğlu]

Merhaba
Private Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Private Sub CommandButton1_Click()
Call sndPlaySound32("ActiveWorkbook\Halkali-Seker.WAV", 0)
End Sub
yukarıdaki kodlarla excel in bulunduğu klasör içindeki müziği ,sesi
çaldırmak için nasıl bir düzeltme yapmalıyım?
İlgilenen arkadaşlara şimdiden teşekkürler.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Call sndPlaySound32(ActiveWorkbook.Path & "\Halkali-Seker.WAV", 0)

İlave olarak; 32 bit Excel kullanıyorsanız PtrSafe ifadesini de silmelisiniz.

 

[vuranoğlu]

Merhaba
ÖmerBey

İlgili kod çalışmadı.
Dosya ektedir.

 

[ÖmerBey]

Öncelikle kodunuzda yukarıda belirttiğim değişikliği yapmamışsınız. İkinci olarak dosya isminiz hatalı: Klasördeki dosya isminde tire işareti yok. Sonuç olarak kodunuz şu şekilde olmalı:

Call sndPlaySound32(ActiveWorkbook.Path & "\Halkali Seker.wav", 0)

Bunun yanı sıra alternatif olarak ses çalmak için Beep komutu da kullanılabilir.

 

[vuranoğlu]

Merhaba
Hatalı girişleri düzeltim çalışıyor.
Teşekkürler.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...