(Excel No12)「何て書いたか言ってごらん」

今回はお遊びです。
セルに入力した内容をMacに喋らしてみましょう。
な～に、簡単な事です。AppleScriptを使えばいいんです。但し、Text To Speechをお忘れなく。

Option Explicit

Sub SayThisCellValue()
    Dim sayText As String

    sayText = """" & ActiveCell.Value & """"
    MacScript ("say " & sayText)
End Sub

アクティブセルの内容をsayさせているだけです。 但し、日本語は通じませんから英語（あるいは、それらしいローマ字）を入力して下さいね。