Site icon The Inner Detail

Make PowerPoint Presentations easily in seconds with ChatGPT – Step-by-step Guide

If you are a college student, worrying about doing assignments, presentations for your internals at the last moment, this method of making a PPT in seconds using ChatGPT could save you.

College assignments, making Powerpoint presentations for seminars can now be done easily within seconds using technology at today’s world. Creating powerpoint slides could be a hectic task for some of you, and here is ChatGPT AI for assisting the PPT-making, after being there with you for multiple uses.

Though ChatGPT can’t sketch you a professional expert-level PPT with all images and animations required, it can get you slides with simple content of texts from topics you want, which you can edit, design, and modify according to your needs and choices.

How to create Powerpoint slides using ChatGPT?

Creating a simple PPT using ChatGPT is pretty easy and it takes only few minutes. You can ask the AI for a PPT on a particular topic, and also you can suggest how the slides must guide forward, meaning what exactly you want to address in the presentation.

Before we start, let me brief you the pre-requisites for doing this.

If you are done with the above two, here is how, you can do it..

Making Powerpoint Presentation using ChatGPT
PPT made by ChatGPT

Related Posts


Handling Errors

The code may come with errors and in that case, you need to regenerate the response of ChatGPT. If you get errors’, click ‘debug’ and analyze what is wrong with the code.

The code should look like this:

Sub CreateRobotsPresentation()

    ‘Create a new PowerPoint Presentation

    Dim ppt As Object

    Set ppt = CreateObject(“PowerPoint.Application”)

    ppt.Visible = True

    Dim pres As Object

    Set pres = ppt.Presentations.Add

    ‘Add a title slide

    Dim slide1 As Object

    Set slide1 = pres.Slides.Add(1, 11)

    slide1.Shapes.Title.TextFrame.TextRange.Text = “Robots”

    slide1.Shapes.Subtitle.TextFrame.TextRange.Text = “How robots intruded into people’s lives”

    ‘Add a slide on the definition of robots

    Dim slide2 As Object

    Set slide2 = pres.Slides.Add(2, 11)

    slide2.Shapes.Title.TextFrame.TextRange.Text = “What are robots?”

    slide2.Shapes.Placeholders.Item(2).TextFrame.TextRange.Text = “Robots are …

.

.

.

End Sub

Here are the common errors I found:

Run-time error 438: Object doesn’t support this property or method.  – This means that the code compiler can’t support that line for the object. You can remove that line alone and try running the code.

Try regenerating the response with ChatGPT, if the problem persists.

Limitations

Hope you find the page useful!

Drop your thoughts in the comments…

(For more such interesting informational, technology and innovation stuffs, keep reading The Inner Detail).

Exit mobile version