Говорящий Excel

[agregator]

Всем здравствуйте! Хочу, чтобы Excel проговаривал, что написано в ячейке. Для этого из вложения надо скопировать Govorilka_cp.exe на диск C , прописать в Пуск-Выполнить C:\Govorilka_cp.exe -e24 -c и тогда Govorilka_cp проговорит, то что в буфере обмена. Скажите пожалуйста, каким кодом сделать тоже самое из Excel? Сам я мало чего понимаю. Привожу не рабочий

Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   Private Const SW_SHOWNORMAL = 1
  Sub Open_File(F_Name) 'Запуск файлов
 ShellExecute 0, vbNullString, F_Name, vbNullString, vbNullString, SW_SHOWNORMAL
    End Sub

Private Sub CommandButton1_Click()
'Копировать_в_Буфер
    Range("A1").Copy
    
'Проговорить текст из буфера
Open_File "C:\Govorilka_cp.exe -e24 -c" ' Не срабатывает
Open_File "C:\Govorilka_cp.exe"

End Sub

[Hugo121]

Попробуйте

Sub tt()
    CreateObject("SAPI.SpVoice").Speak "Change range A1 Ok"
End Sub

Если что-то скажет - можно цикл по ячейкам прикручивать.

[agregator]

Hugo121, спасибо, работает.

Sub tt()
    CreateObject("SAPI.SpVoice").Speak Selection
End Sub

Код проговаривает нулевым голосовым движком 0: ELAN TTS Russian (Nicolai 16Khz). А можно использовать голосовой движок 24: Alyona (Russian) SAPI5?

[Hugo121]

Вы знаете больше чем я
Я не знаю...

Есть что-то тут
http://www.codeproject.com/Articles/...g-Windows-SAPI
и тут
http://www.codeproject.com/Articles/...MS-SAPI-to-use

[agregator]

Hugo121, просто для Govorilka_cp можно посмотреть установленные голосовые движки и прописать номер голосового движка, которым проговаривать, C:\Govorilka_cp.exe -e24 -c. А в принципе VBA может сделать тоже, что и строка Выполнить?

[Hugo121]

Может. Но без проверки писать код не берусь.
Поищите коды со словом Shell

Вот например макрос для получения изображения ячейки А1:

Sub bb()
[A1].Copy
Shell """C:\Program Files\IrfanView\i_view32.exe"" /clippaste /dpi=(300,300) /convert=d:\A1.jpg"
End Sub

[EducatedFool]

А в принципе VBA может сделать тоже, что и строка Выполнить?

да
только правильнее использовать не shell (она не есть аналог ПУСК-ВЫПОЛНИТЬ),
а конструкцию

CreateObject("wscript.Shell").Run "команда"

например, чтобы открыть произвольный файл или гиперссылку:

CreateObject("wscript.Shell").Run """" & filename$ & """"

[agregator]

EducatedFool, благодарю за исчерпывающий ответ. Работает как надо.

[VictorM]

Добрый день.
А как все это дело научить говорить по русски?

[Serge_Bliznykov]

Сообщение от VictorM

А как все это дело научить говорить по русски?

так поставить русский голосовой движок.
начните знакомоство с этой темой с сайта Говорилки - http://www.vector-ski.ru/vecs/govorilka/download.htm