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


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

Option Explicit

Sub SayThisCellValue()
    Dim sayText As String

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

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

 

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください