4
1

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

ChatGPTを使った防災教育!!

Last updated at Posted at 2024-08-27

1. はじめに

最近、大きな自然災害が多発しています。1月の能登半島地震や宮崎で発生した震度6弱の地震、南海トラフ臨時情報の発令、さらには現在進行中の台風10号など、近い将来さらに大きな自然災害が発生するのではないかと、子供たちの将来が心配です。
大きな自然災害が発生したとき、子供たちがどのような防災行動をとるべきかを楽しく学べる子供向けの防災クイズを、ChatGPTの力を借りてPPTで作成しました。

2. ChatGPTを使用して作成した理由

理由は3つあります。

  1. たくさんの教育資材から防災クイズの設問を作るには優先順位をつけるのが難しい。
  2. 9月1日の防災イベントで使用するため、作成までの時間がなかった。
  3. 作った防災教育用のPPTを実際に子供たちの前で発表し、その反応を知りたかった。

image.png
資料はたくさんあるのですが :frowning2::frowning2:

3. ChatGPTを使用した防災クイズPPTプロトタイプ作成過程

プロンプト1-8

image.png
その回答がこちらです。

image.png
生成された設問は期待通りでしたが、かわいい子供のイラストが欲しかったので、さらにプロンプトしました。
* プロンプト2
image.png
image.png
image.png
防災クイズ用のイラストは1枚のみの生成だったため、無料版ChatGPTを有料版にバージョンアップしてさらに防災教育用のイラストを生成するようにプロンプトしました。

  • プロンプト3
    image.png
    イラストは10枚生成できましたが、設問に合うイラストに違和感があったため、何度か生成させましたが、津波避難の画像に違和感があるため、結局ネットから適当な画像を抽出して使用しました。

image.png
さらに画像と設問をPPTに同時に貼り付けるマクロコードを作成し、VBAエディターに添付しました。

  • プロンプト4
    image.png
    作成した設問とイラストをPPTに自動で貼り付けるようプロンプトしました。

image.png
image.png
VBAコードをPPTに貼り付けましたが、エラーが出たため、エラー解消法をさらにプロンプトしました。

  • プロンプト5
    image.png
    何度もChatGPTに修正VBAを聞いて試しましたが、結局エラーを解消できませんでした。

image.png
設問とイラストを同時に貼り付けることをあきらめ、設問だけをPPTに自動で貼り付けるようにしました。

  • プロンプト6
    image.png
    image.png
    ChatGPTが作成したVBAを貼り付けることで、今度はエラーなくPPTを作成することができました。作成できた設問のPPTがこちらです。
    image.png
  • プロンプト7
    イラストだけをPPTに自動で貼り付けるようにプロンプトしました。
    image.png
    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です。
    image.png

さらに、防災クイズを楽しめるように点数表とランク表を作成しました。

image.png

  • プロンプト8
    回答に応じたランクのイラストが欲しかったので、さらにプロンプトしました。

image.png

4. 作成を終えて

最終的に設問やイラストの位置は手動で調整しましたが、完全に自動化できなかったものの、すべて手動で作成するのに比べて圧倒的に早く作成できました。改めてChatGPTの凄さを実感しました。

4
1
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
4
1

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?