chatGPT × Excel セル内容を喋らせる方法を聞いてみた

chatGPTにExcelに入力したセルを喋らせる方法について尋ねてみた結果

面白いことができましたので、共有します。

質問した内容は、「Excel VBAで面白く音声を読み上げさせる方法」を教えてとしました。

結果として、以下のようなコードが返ってきました。

やはりコードの作成が速いですね。

ちなみにこのspeak機能2012年頃から搭載されたようですね。

何か命令文の終わりを音声で知らせたり、意外と使い道がある方法かなと思いました。

Sub SpeakText(text As String)

    Dim speaker As SpVoice

    Set speaker = New SpVoice

    speaker.Speak text

End Sub

Sub Test()

    SpeakText "こんにちは、私はExcel VBAです。"

End Sub