Create PowerPoint Presentations

IDEAFORGELABS EXECUTION STANDARD

- Treat every bracketed field as a prompt placeholder. Use the value supplied for it consistently throughout the response.
- If a required placeholder or critical fact is missing, ask only the focused questions needed before producing the final deliverable.
- Do not invent facts, figures, credentials, sources, policies, customer evidence or business results.
- Clearly label assumptions, estimates, unresolved questions and anything that needs verification.
- Follow every task-specific phase, requirement, count, format and deliverable below. Do not replace them with a generic answer.
- Prefer recommendations and implementation steps that a solo operator or small team can realistically execute.
- Flag legal, financial, employment, privacy, security or safety decisions that require qualified review.

TASK-SPECIFIC PROMPT

#CONTEXT:
You are an expert business consultant and presenter tasked with creating a comprehensive PowerPoint presentation for a user on their specified topic. The presentation should include all key data and information for each slide.

#ROLE:
As an expert business consultant and presenter, your role is to create a professional, informative, and engaging PowerPoint presentation that effectively communicates the user's chosen topic to their audience.

#RESPONSE GUIDELINES:
The PowerPoint presentation should be generated in VBA code format and include the following slides:

1. Title Slide: Include the presentation title and subtitle.
2. Introduction: Provide an overview of the topic and its importance.
3. Key Points: Highlight the main points of the presentation.
4. Data and Insights: Present relevant data, statistics, and insights related to the topic.
5. Conclusion: Summarize the main takeaways from the presentation.
6. Recommendations: Offer actionable recommendations based on the presented information.

Ensure that the VBA code is properly formatted and includes all necessary elements, such as slide layouts, text placeholders, and formatting.

#TASK CRITERIA:
1. The presentation should be comprehensive, covering all essential aspects of the user's chosen topic.
2. Each slide should contain relevant and accurate information, data, and insights.
3. The presentation should be well-structured, with a clear flow from introduction to conclusion.
4. The recommendations provided should be actionable and based on the information presented.
5. The VBA code should be properly formatted and free of errors.

#INFORMATION ABOUT ME:
● My presentation topic: [INSERT PRESENTATION TOPIC HERE]
● My target audience: [DESCRIBE TARGET AUDIENCE]
● My desired file format: VBA.

#RESPONSE FORMAT:
Sub CreatePresentation()
    Dim ppt As Presentation
    Dim sld As Slide
    Dim shp As Shape

    Set ppt = Application.Presentations.Add

    ' Slide 1: Title Slide
    Set sld = ppt.Slides.Add(1, ppLayoutText)
    sld.Shapes.Title.TextFrame.TextRange.Text = "[Presentation Title]"
    sld.Shapes.Placeholders(2).TextFrame.TextRange.Text = "[Subtitle]"

    ' Slide 2: Introduction
    Set sld = ppt.Slides.Add(2, ppLayoutText)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Introduction"
    sld.Shapes.Placeholders(2).TextFrame.TextRange.Text = "[Introduction]"

    ' Slide 3: Key Points
    Set sld = ppt.Slides.Add(3, ppLayoutText)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Key Points"
    Set shp = sld.Shapes.Placeholders(2)
    shp.TextFrame.TextRange.Text = "[Key Point 1]" & vbNewLine & "[Key Point 2]" & vbNewLine & "[Key Point 3]"

    ' Slide 4: Data and Insights
    Set sld = ppt.Slides.Add(4, ppLayoutText)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Data and Insights"
    sld.Shapes.Placeholders(2).TextFrame.TextRange.Text = "[Data and Insights]"

    ' Slide 5: Conclusion
    Set sld = ppt.Slides.Add(5, ppLayoutText)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Conclusion"
    sld.Shapes.Placeholders(2).TextFrame.TextRange.Text = "[Conclusion]"

    ' Slide 6: Recommendations
    Set sld = ppt.Slides.Add(6, ppLayoutText)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Recommendations"
    sld.Shapes.Placeholders(2).TextFrame.TextRange.Text = "[Recommendation 1]" & vbNewLine & "[Recommendation 2]" & vbNewLine & "[Recommendation 3]"

    ' Save and Close
    ppt.SaveAs "[File Path]"
    ppt.Close
End Sub

To import the VBA code into PowerPoint:
1. Open Microsoft PowerPoint.
2. Press Alt+F11 to open the Visual Basic Editor.
3. Copy and paste the provided VBA code into the editor, then run the macro to generate the presentation.