yazılan metni seslendirme

[aslan1969]

merhaba
textboxa yazdığımız metni okuyan bir makro vardı aradım bulamıyorum
hatırlıyan bilen varmı?
çok teşekkür ederim

 

[fedeal]

Dim konus As New SpeechLib.SpVoice

konus.Speak "www excel web tr"

yalnız Tools-References bölümünden microsoft speech object library'i eklemeniz gerek

 

[fedeal]

orjinalini kod arşivinden buldum

Dim konus As New SpeechLib.SpVoice
Private Sub UserForm_Activate()
TextBox1.Text = "buraya istediğini yaz"
End Sub

Private Sub CommandButton1_Click()
konus.Speak TextBox1.Text
End Sub

 

[aslan1969]

çok teşekkür ederim

 

[fedeal]

çok teşekkür ederim

ricaederim iyi çalışmalar.