【超初心者】ChatGPTでパワーポイント資料の作り方５ステップ！VBAマクロとアドインでかんたん

こんな疑問に答えます。

いま話題のChat GPTを使っていますか？

実はパワーポイントでも使えるのですが、まだやり方を紹介している人はいません。

初心者でもたった５ステップで、Chat GPT×パワポで資料が作れます。

本記事では、ゼロから作る手順を画像付きで紹介しています。

VBA（マクロ）とプラグインを使う方法があり、プラグインを使う方法の方がかんたんでした。

ラクして資料を作りたい人は、ぜひご覧ください。

VBA（マクロ）とChatGPTを使ってパワーポイントの資料を作る方法

ChatGPTにVBAコードを書いてもらい、パワーポイントのマクロに打ち込むだけで、こんな資料が作れます。

１分の動画で解説しています。

この投稿をInstagramで見る

パワポ怪獣┃プレゼン音痴をなおせた先輩(@pawapo_kaiju)がシェアした投稿

ChatGPTに資料を作ってもらうのは、以下の５ステップです。

マクロを実行するときにエラーが表示されることがあるので、対策と合わせて解説します。

Chat GPTにログイン

まずは、無料で使えるChat GPTにログインしましょう。

初めでの人は、Sign inからアカウントの登録をして下さい。

アカウントをお持ちの方は、Log inしましょう。

>>>ChatGPTにログインする

指示を書きこむ

画面の下にあるボックスに指示を入力しましょう。

例えば、以下の文章です。

人口知能の歴史を説明するパワーポイントを作るVBAコードを書いてください。５枚のスライドにまとめて下さい。

PowerPointが理解できる、VBAコードで作ってもらうのがコツです。

VBAコードをコピーする

１分ほどでVBAコードが吐き出されます。

実際にChatGPTに書いてもらったコードがこちらです。

Sub CreateAIHistoryPresentation()
Dim pptApp As Object
Dim pptPresentation As Object
Dim pptSlide As Object

' 新しいPowerPointアプリケーションを作成する
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True

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

' 1枚目のスライドを作成する
Set pptSlide = pptPresentation.Slides.Add(1, 11)
With pptSlide
    ' タイトルを設定する
    .Shapes.Title.TextFrame.TextRange.Text = "人工知能の歴史"

    ' 内容を設定する
    .Shapes(1).TextFrame.TextRange.Text = "人工知能（Artificial Intelligence、AI）は、人間の知的能力を模倣し、タスクを実行するためのコンピューターサイエンスの分野です。"
End With

' 2枚目のスライドを作成する
Set pptSlide = pptPresentation.Slides.Add(2, 11)
With pptSlide
    ' タイトルを設定する
    .Shapes.Title.TextFrame.TextRange.Text = "初期の始まり"

    ' 内容を設定する
    .Shapes(1).TextFrame.TextRange.Text = "AIの歴史は1950年代にさかのぼります。Allen NewellやHerbert A. Simonなどの研究者は、数学的問題を解決するプログラムである『Logic Theorist』を開発しました。"
End With

' 3枚目のスライドを作成する
Set pptSlide = pptPresentation.Slides.Add(3, 11)
With pptSlide
    ' タイトルを設定する
    .Shapes.Title.TextFrame.TextRange.Text = "AIの冬"

    ' 内容を設定する
    .Shapes(1).TextFrame.TextRange.Text = "1970年代には、AIは『AIの冬』と呼ばれる時期を迎えました。限られた進展と資金不足が原因でしたが、研究は続けられ、エキスパートシステムや機械学習などの新しいアプローチが生まれました。"
End With

' 4枚目のスライドを作成する
Set pptSlide = pptPresentation.Slides.Add(4, 11)
With pptSlide
    ' タイトルを設定する
    .Shapes.Title.TextFrame.TextRange.Text = "急速な進展"

    ' 内容を設定する
    .Shapes(1).TextFrame.TextRange.Text = "1990年代後半から2000年代初頭にかけて、AIは急速な進展を遂げました。ニューラルネットワーク、自然言語処理、データマイニングなどの技術により、音声認識、画像分類、自律システムなどでの画期的な成果が得られました。"
End With

' 5枚目のスライドを作成する
Set pptSlide = pptPresentation.Slides.Add(5, 11)
With pptSlide
    ' タイトルを設定する
    .Shapes.Title.TextFrame.TextRange.Text = "現在と将来のトレンド"

    ' 内容を設定する
    .Shapes(1).TextFrame.TextRange.Text = "今日、AIは仮想アシスタント、推薦システム、自律車などのさまざまなアプリケーションの重要な要素となっています。現在の研究は、説明可能なAI、AIの倫理、汎用人工知能の開発などの領域に焦点を当てています。"
End With

' PowerPointオブジェクトのクリーンアップ
Set pptSlide = Nothing
Set pptPresentation = Nothing
Set pptApp = Nothing
End Sub

コピーしましょう。

コードをコピーするには、右上にある「Copy code」を使うと便利です。

コードの作成が中断してしまったら？

無料プランの場合、回線が混むと、回答が途中で止まることがあります。

そんな時は、画面の下部にある「Continue generating」を押しましょう。

回答が再開されますよ。

パワーポイントのVBA（マクロ）に貼り付け

パワーポイントを開き、開発タブにあるVisual Basicをタップします。

挿入から標準モジュールを選択して下さい。

コードを貼り付けて、再生ボタンを押しましょう。

これでパワーポイントが作成されました。

マクロを再生したときにエラーが出たら？

「エラーが出たので修正して下さい」とChatGPTに支持を出しましょう。

エラーの内容を伝えると、なおよいです。

具体的には、以下のように入力しました。

「範囲外の整数2がIndexの正しい範囲内にありません１から１へ」というエラーが表示されるので、修正して下さい

すると、修正したコードと、修正した内容を教えてくれます。

デザインを整える

あとはホームタブにある「デザイナー」をタップすると、デザインが表示されます。

好きなデザインをページごとに選びましょう。

これでスライドが完成しました。

ちなみに、スライドのフォーマットはメルマガで配布しています。

>>>無料フォーマットを受け取る

パワーポイントのChatGPTのアドインを使う方法

パワーポイントのアドインを使っても、ChatGPTは使えます。

人工知能の歴史をテーマに作ってもらった資料が、こちら。

作り方は、以下の３ステップです。

ChatGPTのアドインをインストールする

挿入タブにある「アドインを入手」を選択しましょう。

検索窓に「GPT」と入力して、ChatGPT for PowerPointをインストールします。

これで、ホームタブにアイコンが表示されるようになりました。

指示を入力する

アイコンをタップすると、入力画面が表示されます。

スライドのTopic（テーマ）とスライドの枚数を入力して、Create Slidesを押して下さい。

入力は、日本語でもOKです。

デザインを整える

１～２分でスライドが完成します。

５枚と指定しましたが、最後の謝辞のページを含めて６枚のスライドになりました。

ただ、ChatGPTが作ったスライドは、以下のようにデザイン性に乏しいのが難点です。

そこで、デザイン性を向上するために、デザイン機能を使いましょう。

デザインを変えたいスライドを選択して、ホームタブにあるデザイナーをタップするだけ。

（デザイナーはChatGPT for PowerPointの隣にあります）

デザインの候補が表示されるので、好みのデザインを選びましょう。

これで完成です。

ChatGPTを使ってパワーポイントの資料を作るのはかんたん

PowerPointとChatGPTを組み合わせて、資料を作る方法は２通りあります。

初心者はアドイン機能を使うと、失敗が少ないのでおすすめです。

かんたんに資料が作れるので、ぜひ試してみてください。