Obsah
Máte edici aplikace Excel s nainstalovaným textem na řeč? Pokud ano, můžete přimět Excel mluvit z kódu VBA. Nezapomeňte zapnout reproduktory.
Text na řeč
Následující text bude vysloven v buňce A1 ActiveSheetu:
| 123456789 | Sub SayThisCell ()Buňky (1, 1). MluvteEnd Sub |
Toto makro nevyžaduje, aby byl text v jakékoli tabulce, hovoří o obsahu řetězce:
| 1234567891011121314151617 | Sub SayThisString ()Dim SayToto jako řetězecSayThis = "Miluji Microsoft Excel"Application.Speech.Speak (SayThis)End Sub |
