1. はじめに
最近、大きな自然災害が多発しています。1月の能登半島地震や宮崎で発生した震度6弱の地震、南海トラフ臨時情報の発令、さらには現在進行中の台風10号など、近い将来さらに大きな自然災害が発生するのではないかと、子供たちの将来が心配です。
大きな自然災害が発生したとき、子供たちがどのような防災行動をとるべきかを楽しく学べる子供向けの防災クイズを、ChatGPTの力を借りてPPTで作成しました。
2. ChatGPTを使用して作成した理由
理由は3つあります。
- たくさんの教育資材から防災クイズの設問を作るには優先順位をつけるのが難しい。
- 9月1日の防災イベントで使用するため、作成までの時間がなかった。
- 作った防災教育用のPPTを実際に子供たちの前で発表し、その反応を知りたかった。
3. ChatGPTを使用した防災クイズPPTプロトタイプ作成過程
プロンプト1-8
生成された設問は期待通りでしたが、かわいい子供のイラストが欲しかったので、さらにプロンプトしました。
* プロンプト2
防災クイズ用のイラストは1枚のみの生成だったため、無料版ChatGPTを有料版にバージョンアップしてさらに防災教育用のイラストを生成するようにプロンプトしました。
さらに画像と設問をPPTに同時に貼り付けるマクロコードを作成し、VBAエディターに添付しました。
VBAコードをPPTに貼り付けましたが、エラーが出たため、エラー解消法をさらにプロンプトしました。
設問とイラストを同時に貼り付けることをあきらめ、設問だけをPPTに自動で貼り付けるようにしました。
- プロンプト6
ChatGPTが作成したVBAを貼り付けることで、今度はエラーなくPPTを作成することができました。作成できた設問のPPTがこちらです。
- プロンプト7
イラストだけをPPTに自動で貼り付けるようにプロンプトしました。
Sub InsertImagesIntoSlides()
Dim pptSlide As slide
Dim pptPresentation As Presentation
Dim imagePath As String
Dim imageFiles As String
Dim imageCount As Integer
' プレゼンテーションを取得
Set pptPresentation = ActivePresentation
' 画像が保存されているフォルダのパスを指定
imagePath = "C:\Users\YourUsername\Desktop\images" 'ここに画像フォルダのパスを入力
' 画像ファイルを検索
imageFiles = Dir(imagePath & ".jpg") '画像の拡張子がjpgの場合、pngの場合は ".png"
' スライドに画像を挿入
imageCount = 1
Do While imageFiles <> ""
' 新しいスライドを追加
Set pptSlide = pptPresentation.Slides.Add(pptPresentation.Slides.Count + 1, ppLayoutBlank)
' 画像をスライドに挿入
pptSlide.Shapes.AddPicture _
FileName:=imagePath & imageFiles, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=100, _
Top:=100, _
Width:=400, _
Height:=300
' 次の画像ファイルを取得
imageFiles = Dir
imageCount = imageCount + 1
Loop
End Sub
作成が成功した動画です。
https://x.com/g5zKVX7GaKyzDxl/status/1829367867013525597
その後、イラストと設問を合体させました。
完成した子供向け防災クイズPPTです。
さらに、防災クイズを楽しめるように点数表とランク表を作成しました。
- プロンプト8
回答に応じたランクのイラストが欲しかったので、さらにプロンプトしました。
4. 作成を終えて
最終的に設問やイラストの位置は手動で調整しましたが、完全に自動化できなかったものの、すべて手動で作成するのに比べて圧倒的に早く作成できました。改めてChatGPTの凄さを実感しました。