Съдържание
Имате ли издание на Excel с инсталиран „Text to Speech“? Ако е така, можете да накарате Excel да говори от VBA код. Не забравяйте да включите високоговорителите си.
Текст в реч
Следното ще произнесе текста в клетка A1 на ActiveSheet:
123456789 | Sub SayThisCell ()Клетки (1, 1)End Sub |
Този макрос не изисква текст да бъде в каквато и да е електронна таблица, той говори съдържанието на низ:
1234567891011121314151617 | Sub SayThisString ()Dim SayThis As StringSayThis = "Обичам Microsoft Excel"Application.Speech.Speak (SayThis)End Sub |