What the Prompt does
- Use GPT-4 to create a PowerPoint presentation in 3 mins using Visual Basic Editor. Quick, easy, powerful slides.
- Productivity, Create Powerpoint Presentation and Slides in 3 Minutes
Example Prompt Output GPT4
Sure! I can help you with that. However, since I am a text-based AI model, I can’t directly create PowerPoint slides for you. I can, however, provide you with a VBA code template that you can use to create PowerPoint slides about your desired topic. You can copy and paste the code into the VBA editor in PowerPoint and modify it according to your needs. Here’s a sample code to get you started:
Sub CreateSlides()
Dim pptApp As Object
Dim pptPres As Object
Dim pptSlide As Object
' Create PowerPoint application
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
' Create a new presentation
Set pptPres = pptApp.Presentations.Add
' Add slides
Set pptSlide = pptPres.Slides.Add(1, 11) ' 11 represents the slide layout
' Slide 1
With pptSlide
.Shapes.Title.TextFrame.TextRange.Text = "Slide 1"
.Shapes(2).TextFrame.TextRange.Text = "Insert content here"
End With
' Slide 2
Set pptSlide = pptPres.Slides.Add(2, 11)
With pptSlide
.Shapes.Title.TextFrame.TextRange.Text = "Slide 2"
.Shapes(2).TextFrame.TextRange.Text = "Insert content here"
End With
' Slide 3
Set pptSlide = pptPres.Slides.Add(3, 11)
With pptSlide
.Shapes.Title.TextFrame.TextRange.Text = "Slide 3"
.Shapes(2).TextFrame.TextRange.Text = "Insert content here"
End With
' Continue adding slides as needed
' Save and close the presentation
pptPres.SaveAs "C:\Path\to\save\presentation.pptx"
pptPres.Close
' Quit PowerPoint application
pptApp.Quit
' Clean up
Set pptSlide = Nothing
Set pptPres = Nothing
Set pptApp = Nothing
End Sub
To use this code, follow these steps:
- Open PowerPoint and press Alt+F11 to open the VBA editor.
- Insert a new module by clicking Insert > Module.
- Copy and paste the above code into the module.
- Modify the code to add your desired content to each slide. You can change the slide titles and insert content in the placeholder.
- Adjust the slide layout code (
11
) as per your requirements. You can refer to the PowerPoint VBA documentation for other layout options. - Modify the file path in the
SaveAs
method to specify where you want to save the presentation. - Press F5 to run the code and create the slides.
Remember to replace the placeholder text and customize the code according to your needs. Feel free to add more slides using the provided template.
How I came up with it
Came up as I Have to do many Presentations every day
WARNING: Just dumping your Prompt link here won’t cut it, and may be removed by moderators