Turinys
Ar turite „Excel“ leidimą su „Text to Speech“? Jei taip, galite priversti „Excel“ kalbėti iš VBA kodo. Nepamirškite įjungti garsiakalbių.
Iš rašto į kalbą
Toliau bus pasakytas tekstas „ActiveSheet“ langelyje A1:
123456789 | Sub SayThisCell ()Ląstelės (1, 1). KalbėkitePabaiga Sub |
Šiai makrokomandai nereikia, kad tekstas būtų bet kurioje skaičiuoklėje, ji kalba apie eilutės turinį:
1234567891011121314151617 | Sub SayThisString ()Dim SayThis As StringSayThis = "Man patinka" Microsoft Excel "Application.Speech.Speak (SayThis)Pabaiga Sub |