Произнести текст ячейки Excel вслух

Описание работы

Простая функция =ПРОИЗНЕСТИ(ТЕКСТ), которая позволяет произнести указанный текст. Стихи, конечно, читает не ахти как, но зато можно делать различные звуковые предупреждения.

Например, если изменилось контрольное значение, можно выдавать предупреждение ПРОИЗНЕСТИ("Внимание! Результат изменился"). Либо приветствовать пользователя при входе в Excel ПРОИЗНЕСТИ("Добро пожаловать!").

Внимание! Не на всех компьютерах стоит русский пакет, поэтому русские слова проговариваться не будут. 

В этом случае можно обходиться словами на английском или преобразовывать русский текст в латиницу с помощью транслитерации.

Код на VBA

Function ПРОИЗНЕСТИ(ТЕКСТ As String) As String
    Application.Speech.Speak (ТЕКСТ)
    ПРОИЗНЕСТИ = ТЕКСТ
End Function