Простая функция =ПРОИЗНЕСТИ(ТЕКСТ), которая позволяет произнести указанный текст. Стихи, конечно, читает не ахти как, но зато можно делать различные звуковые предупреждения.
Например, если изменилось контрольное значение, можно выдавать предупреждение ПРОИЗНЕСТИ("Внимание! Результат изменился"). Либо приветствовать пользователя при входе в Excel ПРОИЗНЕСТИ("Добро пожаловать!").
Внимание! Не на всех компьютерах стоит русский пакет, поэтому русские слова проговариваться не будут.
В этом случае можно обходиться словами на английском или преобразовывать русский текст в латиницу с помощью транслитерации.
Function ПРОИЗНЕСТИ(ТЕКСТ As String) As String Application.Speech.Speak (ТЕКСТ) ПРОИЗНЕСТИ = ТЕКСТ End Function