اضافة صوت عند التحرير

[ابو اسامة العينبوسي]

بسم الله الرحمن الرحيم

هل من الممكن ان نصيف صوت عند انتقال الموشر من خليه لاخري ؟

او عند ادخال الاحرف او الارقام , كما في برنامج المحادثه ICQ

مع العلم ان لدي الاداه التاليه Microsoft multimedia control 6.0, حيث ان الاخ محمد حجازي قال انها ضروريه للقيام بمثل هذه المهمه . او مثل الاصوات الموجوده في البوربوينت

و الف شكر

[ابو اسامة العينبوسي]

الف شكر للجميع وجدت مبتغاي في احد المنتديات

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


Private Sub Worksheet_Calculate() 
    If Me.Range("A1").Value > 10 Then 
        sndPlaySound32 "chimes.wav", 0 
    End If 
End Sub

تم تعديل نوفمبر 16, 2006 بواسطه هادى سالم