Create Beautiful PowerPoint Slides with ChatGPT and VBA

Here’s a quick tip to boost your productivity by letting ChatGPT and VBA do the heavy lifting when creating PowerPoint slide decks.

If you don’t know what VBA is, no worries. It stands for Visual Basic for Applications and is integrated into all Microsoft Office applications, including PowerPoint. And no, you don’t have to be a programmer to make this work for you. Your existing copy/paste skills will do just fine…

Let me show you.

Here are the specific steps to take to boost your productivity when creating PowerPoint slide decks:

Visit ChatGPT and prompt it to write an outline for a PowerPoint presentation. Let’s pretend we want a pitch deck with maximum seven slides to present SmartPet Buddy, a fictitious robotic companion for pets.

The ChatGPT prompt could look like this:

You are an entrepreneur who invented SmartPet Buddy: A robotic companion for pets that offers interactive play, exercise, and monitoring, keeping pets entertained and active even when their owners are away. Real fun for your the whole family...including your best friends.

Write the outline for a slide deck to pitch this amazing product to prospective customers. Tell them about how exciting their lives will be with SmartPet Buddy in the house. Focus on the benefits more so than the features.

Tell your audience what the product does for them and what it means to them in their life rather than what it is by listing feature after feature.

Use no more than 7 slides in this deck.

ChatGPT will then produce the outline for this slide deck, just like we asked it to do.

If you like what ChatGPT presents to you, cool. Otherwise either hit the “Regenerate Response” button — or suggest what kind of modifications you want.

Once you are satisfied with the outline for your slide deck, it’s time to bring VBA into play. We are going to prompt ChatGPT to generate the required VBA code for PowerPoint from the outline:

Now write the VBA code to create the PowerPoint slides for this pitch. Add content that is humorous and whimsical to reflect just how fun the product is.

As always, ChatGPT, our skilled and willing digital assistant, will oblige and create a block of code for us. We can then copy this code and hop over to PowerPoint.

Copy the VBA code ChatGPT generated so you can paste it into PowerPoint's Visual Basic Editor.

In PowerPoint, launch the Visual Basic Editor by pressing Alt-F11 or selecting Visual Basic Editor from the Tools/Macro menu.

To get your VBA code into PowerPoint, launch the Visual Basic Editor by pressing Alt-F11 (or select it from the Tools -> Macro menu).

Then, right click on the Project Panel and select Insert -> Module.

Insert a module by right-clicking on the Project panel in the Visual Basic Editor.

A new window will open. Paste the code you copied from ChatGPT into this window and then run the code by clicking on the ► icon.

Once you inserted the code (the real magic to make PowerPoint and VBA do the heavy lifting), run the code by clicking on the 'play' icon or choose it from the Run menu.

And that’s it!

This piece of code has now created a new PowerPoint presentation with 7 slides with minimal text on each.

Now all that’s left is to make it pretty by using PowerPoint’s Designer feature:

Here is where the real magic happens to make your slides pretty by using PowerPoint and VBA. Open the Designer to see a list of suggested designs based on your content.

The Designer is powered by AI as well and will read your slides and suggest a appropriate designs and images.

All you need to do is to select one of the designs you like. Then, fine-tune each slide to make sure your message will resonate with your audience — and voila… You have created a beautiful slide deck in no time.


In case you’re having trouble with the code, here is the snippet that worked for me:

Sub CreatePitchPresentation()
    Dim PowerPointApp As Object
    Dim Presentation As Object
    Dim Slide As Object
    
    ' Open PowerPoint
    Set PowerPointApp = CreateObject("PowerPoint.Application")
    PowerPointApp.Visible = True
    
    ' Create a new presentation
    Set Presentation = PowerPointApp.Presentations.Add
    
    ' Slide 1: Introduction
    Set Slide = Presentation.Slides.Add(1, 11) ' ppLayoutTitleOnly
    With Slide.Shapes.Title.TextFrame.TextRange
        .Text = "Welcome to SmartPet Buddy: Your Pet's New Best Friend!"
        .Font.Size = 36
        .Font.Bold = True
    End With
    
    ' Slide 2: The Problem
    Set Slide = Presentation.Slides.Add(2, 11) ' ppLayoutTitleOnly
    With Slide.Shapes.Title.TextFrame.TextRange
        .Text = "The Problem"
        .Font.Size = 28
        .Font.Bold = True
    End With
    With Slide.Shapes(1).TextFrame.TextRange
        .Text = "Pets get bored. They become couch potatoes. And we know what happens when they become couch potatoes, right?"
        .Font.Size = 20
    End With
    
    ' Slide 3: The Solution: SmartPet Buddy
    Set Slide = Presentation.Slides.Add(3, 11) ' ppLayoutTitleOnly
    With Slide.Shapes.Title.TextFrame.TextRange
        .Text = "The Solution: SmartPet Buddy"
        .Font.Size = 28
        .Font.Bold = True
    End With
    With Slide.Shapes(1).TextFrame.TextRange
        .Text = "Introducing SmartPet Buddy: The robotic companion that will get your pets off the couch and bring joy to their lives!"
        .Font.Size = 20
    End With
    
    ' Slide 4: Benefits for Pet Owners
    Set Slide = Presentation.Slides.Add(4, 11) ' ppLayoutTitleOnly
    With Slide.Shapes.Title.TextFrame.TextRange
        .Text = "Benefits for Pet Owners"
        .Font.Size = 28
        .Font.Bold = True
    End With
    With Slide.Shapes(1).TextFrame.TextRange
        .Text = "Say goodbye to pet guilt and hello to peace of mind. SmartPet Buddy keeps your pets entertained, active, and out of trouble!"
        .Font.Size = 20
    End With
    
    ' Slide 5: Features Overview
    Set Slide = Presentation.Slides.Add(5, 11) ' ppLayoutTitleOnly
    With Slide.Shapes.Title.TextFrame.TextRange
        .Text = "Features Overview"
        .Font.Size = 28
        .Font.Bold = True
    End With
    With Slide.Shapes(1).TextFrame.TextRange
        .Text = "SmartPet Buddy offers interactive play, exercise, and real-time monitoring. It's like having a personal trainer and pet-sitter in one!"
        .Font.Size = 20
    End With
    
    ' Slide 6: Testimonials
    Set Slide = Presentation.Slides.Add(6, 11) ' ppLayoutTitleOnly
    With Slide.Shapes.Title.TextFrame.TextRange
        .Text = "Testimonials"
        .Font.Size = 28
        .Font.Bold = True
    End With
    With Slide.Shapes(1).TextFrame.TextRange
        .Text = "My cat has never been happier! SmartPet Buddy even taught her how to dance! - Mr. Whiskers"
        .Font.Size = 20
    End With
    
    ' Slide 7: Call to Action
    Set Slide = Presentation.Slides.Add(7, 11) ' ppLayoutTitleOnly
    With Slide.Shapes.Title.TextFrame.TextRange
        .Text = "Call to Action"
        .Font.Size = 28
        .Font.Bold = True
    End With
    With Slide.Shapes(1).TextFrame.TextRange
        .Text = "Don't let your pets miss out on the fun! Visit our website and unleash the joy with SmartPet Buddy today!"
        .Font.Size = 20
    End With
End Sub

Get instant access to my newsletter where I share my best presentation tips.

100% Privacy. No Spam.

More Presentation Tips

Latest PitchZone Episode

Related Posts