Make A Complete Powerpoint Presentation

@tryintogett

ID: 5785Words in prompt: 59 Tested

Comments

ONLY WORKS WITH MICROSOFT WINDOWS AND WITH POWERPOINT VERSION NEWER THAN 2016. This prompt generates a COMPLETE POWERPOINT PRESENTATION Script Code I'll help you make the whole process! Generates a script that can create the exact PowerPoint presentation you are looking for. If you are tired of the process of creating these PP Presentations here is the solution for you! These steps aren't easy but don't worry I will help you with anything to create your presentation using this prompt. Video tutorials for the whole process included!!!

Created: 2023-11-10

In categories: Coding

-/5 (0)Use & rate

Comments (0)

Sub CreateSlides()
'Declare variables
Dim i As Integer
Dim slideTitle As String
Dim slideText As String

'Create a new PowerPoint presentation
Set ppt = CreateObject("PowerPoint.Application")
Set pres = ppt.Presentations.Add

'Add a slide for each topic
For i = 1 To 10

    'Set slide title and text
    Select Case i
        Case 1
            slideTitle = "Global Hunger Crisis 2023"
            slideText = "Introduction"
        Case 2
            slideTitle = "The Extent of the Problem"
            slideText = "In 2023, an estimated 840 million people will suffer from chronic hunger and malnutrition."
        Case 3
            slideTitle = "Causes of the Crisis"
            slideText = "The Global Hunger Crisis of 2023 is caused by a variety of factors, including climate change, conflict, and economic instability."
        Case 4
            slideTitle = "The Impact on Children"
            slideText = "Malnutrition and hunger have a devastating impact on children, leading to stunted growth, cognitive impairment, and increased susceptibility to disease."
        Case 5
            slideTitle = "Efforts to Address the Crisis"
            slideText = "Governments, NGOs, and other organizations are working to address the Global Hunger Crisis of 2023 through a variety of programs and initiatives."
        Case 6
            slideTitle = "The Role of Technology"
            slideText = "New technologies, such as precision agriculture and biotechnology, hold promise for increasing food production and reducing hunger."
        Case 7
            slideTitle = "The Importance of Sustainability"
            slideText = "Sustainable agriculture practices, such as regenerative farming and agroforestry, can help to address the root causes of the Global Hunger Crisis of 2023."
        Case 8
            slideTitle = "The Need for Political Will"
            slideText = "Addressing the Global Hunger Crisis of 2023 will require political will and international cooperation, as well as increased funding and resources."
        Case 9
            slideTitle = "The Role of the Private Sector"
            slideText = "Private sector companies can play an important role in addressing the Global Hunger Crisis of 2023 through investments in sustainable agriculture and food security initiatives."
        Case 10
            slideTitle = "Conclusion"
            slideText = "The Global Hunger Crisis of 2023 is a complex and pressing issue that requires a comprehensive, multi-faceted approach to address."
    End Select

    'Add a new slide with the specified title and text
    Set slide = pres.Slides.Add(i, ppLayoutText)
    slide.Shapes(1).TextFrame.TextRange.Text = slideTitle
    slide.Shapes(2).TextFrame.TextRange.Text = slideText

    'Format the slide
    slide.Shapes(1).TextFrame.TextRange.Font.Size = 60
    slide.Shapes(1).TextFrame.TextRange.Font.Bold = True
    slide.Shapes(2).TextFrame.TextRange.Font.Name = "Comic Sans MS"
    slide.Shapes(2).TextFrame.TextRange.Font.Size = 30

Next i

'Display the PowerPoint presentation
ppt.Visible = True

End Sub