AIでスライド資料の作成スピードを上げる方法

当ページには広告が含まれています。

2023年7月21日

ChatGPT、実はパワーポイント資料のアウトラインまで提案してくれます。

スライドの構成を一から考えるのは時間がかかりますが、今回紹介する方法を使えば資料作成の時間を大幅に短縮化することができますので、ぜひ試してみてだください。

作成は以下の通り2ステップで簡単にできます。

ChatGPTにアウトラインの作成を指示し、専用のVBAコードを作成してもらう
VBAコードをパワーポイントに貼り付け、スライドを出力

本記事は有料版のChatGPTであるGPT-4の利用を推奨しています。

ChatGPTにアウトラインを考えてもらう

実際の指示文（プロンプト）はこちらです。

新しく企画したプロテインを紹介するためのプレゼン資料の骨子を#条件に沿って作成してください。作成した骨子をPowerPointのVBA機能で利用可能なVBAコードとして出力してください。

#条件
・スライドの枚数は8枚とします。
・PREP法で構成してください。
・スライドサイズは16：9とします。
・1枚目の表紙のタイトルはページ中央にフォントサイズ60ptで記載してください。
・2枚目以降の見出しは、ページ左上にフォントサイズ24ptで記載してください。

割と細かく入力する必要がありますが、上記のプロンプトを状況に応じて書き換えて使用すれば大丈夫です。

資料に盛り込みたい情報が既にある場合は、それらを追加するとより思惑通りのアウトラインを考えてくれます。

実際のプロンプトはこちらです。

実行すると下記のようにVBAコードを出力してくれます。

Sub CreatePresentation()

    Dim ppt As Presentation
    Set ppt = Presentations.Add
    
    ' Set the slide size to 16:9
    ppt.PageSetup.SlideSize = ppSlideSizeOnScreen16x9
    
    ' Slide titles
    Dim titles As Variant
    titles = Array("新製品のプロテインの紹介", "新製品のプロテインについて", "なぜ新製品のプロテインが必要なのか", _
                   "新製品のプロテインの具体的な利用例", "新製品のプロテインの価値", "新製品のプロテインの成分や特性", _
                   "新製品のプロテインの価格や購入方法", "終わりの言葉と連絡先")
    
    ' Create slides
    Dim i As Integer
    For i = 0 To UBound(titles)
        Dim slide As Slide
        Set slide = ppt.Slides.Add(i + 1, ppLayoutText)
        
        ' Set the title
        slide.Shapes.Title.TextFrame.TextRange.Text = titles(i)
        
        ' Set the font size
        If i = 0 Then
            slide.Shapes.Title.TextFrame.TextRange.Font.Size = 60
            ' Center the title
            slide.Shapes.Title.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignCenter
        Else
            slide.Shapes.Title.TextFrame.TextRange.Font.Size = 24
        End If
    Next i

End Sub