PromptBase
🤖 GPT
Generate amazing PowerPoint slides (copy & paste VBA code) with:
Content Focus: Readability, clarity, and powerful content delivery.
Visual Elements: Visual elements such as images, charts, and animations are used to enhance engagement and understanding.
Template: The provided VBA code examples serve as templates for automating animations.
VBA Programming: VBA (Visual Basic for Applications) code examples are provided for automating animations and other functionalities within the presentation.
...more
$4.99
After purchasing, you will gain access to the prompt file which you can use with GPT or the app builder. You'll receive 20 free generation credits with this purchase. By purchasing this prompt, you agree to our terms of service.
Over 1 month ago
Prompt Details
Model
Chat - GPT-3.5 (gpt-3.5-turbo)
Token size
129 ($0.00020 / call)
Example input
10 slides on "how to make amazing presentations"
Example output
Certainly! Here is a set of 10 PowerPoint slides on the topic "How to Make Amazing Presentations," along with VBA code examples for specific functionalities:
**Slide 1: Title**
- Title: "How to Make Amazing Presentations"
- Subtitle: "Mastering the Art of Presentation Design"
- Background: Engaging visual with company logo
```vba
' VBA Code Example for Slide 1
Sub CreateTitleSlide()
ActivePresentation.Slides.Add Index:=1, Layout:=ppLayoutTitle
With ActivePresentation.Slides(1)
.Shapes(1).TextFrame.TextRange.Text = "How to Make Amazing Presentations"
.Shapes(2).TextFrame.TextRange.Text = "Mastering the Art of Presentation Design"
End With
End Sub
```
**Slide 2: Introduction**
- Title: "Why Presentation Design Matters"
- Content: Bullet points explaining the importance of effective presentation design
```vba
' VBA Code Example for Slide 2
Sub CreateIntroSlide()
ActivePresentation.Slides.Add Index:=2, Layout:=ppLayoutText
With ActivePresentation.Slides(2)
.Shapes(1).TextFrame.TextRange.Text = "Why Presentation Design Matters"
.Shapes(2).TextFrame.TextRange.Text = " - Captures audience attention"
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Enhances message clarity")
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Boosts retention and engagement")
End With
End Sub
```
**Slide 3: Structure**
- Title: "Structuring Your Presentation"
- Content: Visual representation of a typical presentation structure
```vba
' VBA Code Example for Slide 3
Sub CreateStructureSlide()
ActivePresentation.Slides.Add Index:=3, Layout:=ppLayoutContent
With ActivePresentation.Slides(3)
.Shapes(1).TextFrame.TextRange.Text = "Structuring Your Presentation"
' Add a visual representing the structure here
End With
End Sub
```
**Slide 4: Visuals**
- Title: "Effective Use of Visuals"
- Content: Tips on using images, charts, and graphs
```vba
' VBA Code Example for Slide 4
Sub CreateVisualsSlide()
ActivePresentation.Slides.Add Index:=4, Layout:=ppLayoutText
With ActivePresentation.Slides(4)
.Shapes(1).TextFrame.TextRange.Text = "Effective Use of Visuals"
.Shapes(2).TextFrame.TextRange.Text = " - Use high-quality images"
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Utilize charts and graphs")
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Keep visuals simple and relevant")
End With
End Sub
```
**Slide 5: Typography**
- Title: "Choosing the Right Typography"
- Content: Guidelines for selecting fonts and text formatting
```vba
' VBA Code Example for Slide 5
Sub CreateTypographySlide()
ActivePresentation.Slides.Add Index:=5, Layout:=ppLayoutText
With ActivePresentation.Slides(5)
.Shapes(1).TextFrame.TextRange.Text = "Choosing the Right Typography"
.Shapes(2).TextFrame.TextRange.Text = " - Select legible fonts"
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Maintain font consistency")
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Use font size for emphasis")
End With
End Sub
```
**Slide 6: Color**
- Title: "The Psychology of Colors"
- Content: Explain the impact of colors in presentations
```vba
' VBA Code Example for Slide 6
Sub CreateColorSlide()
ActivePresentation.Slides.Add Index:=6, Layout:=ppLayoutText
With ActivePresentation.Slides(6)
.Shapes(1).TextFrame.TextRange.Text = "The Psychology of Colors"
.Shapes(2).TextFrame.TextRange.Text = " - Colors evoke emotions"
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Use a consistent color scheme")
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Avoid overwhelming colors")
End With
End Sub
```
**Slide 7: Practice**
- Title: "Practice Makes Perfect"
- Content: Tips for rehearsing and refining your presentation
```vba
' VBA Code Example for Slide 7
Sub CreatePracticeSlide()
ActivePresentation.Slides.Add Index:=7, Layout:=ppLayoutText
With ActivePresentation.Slides(7)
.Shapes(1).TextFrame.TextRange.Text = "Practice Makes Perfect"
.Shapes(2).TextFrame.TextRange.Text = " - Rehearse multiple times"
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Seek feedback")
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Refine content and delivery")
End With
End Sub
```
**Slide 8: Engagement**
- Title: "Engaging Your Audience"
- Content: Techniques for keeping your audience engaged
```vba
' VBA Code Example for Slide 8
Sub CreateEngagementSlide()
ActivePresentation.Slides.Add Index:=8, Layout:=ppLayoutText
With ActivePresentation.Slides(8)
.Shapes(1).TextFrame.TextRange.Text = "Engaging Your Audience"
.Shapes(2).TextFrame.TextRange.Text = " - Use anecdotes and stories"
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Ask questions")
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Encourage interaction")
End With
End Sub
```
**Slide 9: Delivery**
- Title: "Effective Presentation Delivery"
- Content: Tips on voice modulation, body language, and pacing
```vba
' VBA Code Example for Slide 9
Sub CreateDeliverySlide()
ActivePresentation.Slides.Add Index:=9, Layout:=ppLayoutText
With ActivePresentation.Slides(9)
.Shapes(1).TextFrame.TextRange.Text = "Effective Presentation Delivery"
.Shapes(2).TextFrame.TextRange.Text = " - Vary your tone and pace"
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Use confident body language")
.Shapes(2).TextFrame.TextRange.Paragraphs.Add(" - Maintain eye contact")
End With
End Sub
```
**Slide 10: Conclusion**
- Title: "Crafting Amazing Presentations"
- Content: Summary and call to action
```vba
' VBA Code Example for Slide 10
Sub CreateConclusionSlide()
ActivePresentation.Slides.Add Index:=10, Layout:=ppLayoutText
With ActivePresentation.Slides(10)
.Shapes(1).TextFrame.TextRange.Text = "Crafting Amazing Presentations"
.Shapes(2).TextFrame.TextRange.Text = " - Apply these principles"
.Shapes(2).TextFrame.TextRange.Paragraphs