【検証】ChatGPTでパワポのスライド作成する5つの方法を試してみた

• GPTs(旧プラグイン)をインストールすればすぐ使える
• 回答生成速度が速い
• ChatGPT Plus(20$/月)に入らないと使えない2024年5月現在ではアップデートにより、無料ユーザーでも利用できるようになりました！

• ChatGPTについて
• ChatGPTの特徴
• ChatGPTの利用シーン

• pdfなどから要約しながらスライドを作れる
• 発表原稿も同時に生成してくれる
• 回答を生成するのに時間がかかる
• 比率が設定しないと16:9にならない
• ChatGPT Plus(20$/月)に入らないと使えない

• 無料で使える
• Googleスライドの編集画面から使える
• 画像を自動で挿入できる
• 回答生成速度が速い
• 内容が複雑になると弱い

Sub CreateChatGPTPresentation()

Dim pptApp As Object
Dim pptPresentation As Object
Dim pptSlide As Object
Dim pptTextbox As Object

' PowerPointアプリケーションのインスタンスを作成
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True

' 新しいプレゼンテーションを作成
Set pptPresentation = pptApp.Presentations.Add

' 1枚目のスライドを作成
Set pptSlide = pptPresentation.Slides.Add(1, 1) ' 1はタイトルスライドのレイアウトを示す
pptSlide.Shapes(1).TextFrame.TextRange.Text = "ChatGPTについて"
pptSlide.Shapes(2).TextFrame.TextRange.Text = "ChatGPTはOpenAIによって開発された先進的な言語モデルであり、テキストを生成したり、質問に答えたりする能力を持っています。"

' 2枚目のスライドを作成
Set pptSlide = pptPresentation.Slides.Add(2, 1)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "ChatGPTの特徴"
pptSlide.Shapes(2).TextFrame.TextRange.Text = "・大量のテキストデータでトレーニングされています" & vbCrLf & "・質問応答、文章生成、コード書き込みなどの多岐にわたるタスクを実行できます" & vbCrLf & "・自然な会話をする能力を持っています"

' 3枚目のスライドを作成
Set pptSlide = pptPresentation.Slides.Add(3, 1)
pptSlide.Shapes(1).TextFrame.TextRange.Text = "ChatGPTの利用シーン"
pptSlide.Shapes(2).TextFrame.TextRange.Text = "・カスタマーサポートボットの構築" & vbCrLf & "・コンテンツ作成のサポート" & vbCrLf & "・教育分野でのアシスタントとしての利用" & vbCrLf & "・コーディングのヒント提供"

End Sub

• 無料で使える
• 回答を生成するのに時間がかかる
• 自分でパワポを開いてマクロを張り付けないといけない

• 完成度が高い
• 発表原稿も同時に生成してくれる
• 共有は無料でできる
• ダウンロードするには2.5＄かかる
• 回答を生成するのに時間がかかる