Sub CreateMarketFailuresPresentation()
    Dim ppt As Presentation
    Dim slide As Slide
    Dim shp As Shape
    Dim i As Integer
    
    ' Create a new presentation
    Set ppt = Application.Presentations.Add
    
    ' Slide 1: Title Slide
    Set slide = ppt.Slides.Add(1, ppLayoutTitle)
    With slide
        .Shapes.Title.TextFrame.TextRange.Text = "Market Failures and Government Intervention"
        .Shapes.Placeholders(2).TextFrame.TextRange.Text = "An Analysis of Economic Inefficiencies and Corrective Measures"
        
        ' Add content
        Set shp = .Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 150, 500, 100)
        shp.TextFrame.TextRange.Text = "Introduction to the report. Mention your name, date, and any relevant details."
        shp.TextFrame.TextRange.Font.Size = 18
        shp.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft
        
        ' Add picture (optional, replace with your image path)
        .Shapes.AddPicture "C:\path\to\your\image.jpg", msoFalse, msoCTrue, 100, 250, 300, 200
    End With
    
    ' Slide 2: Introduction to Market Failures
    Set slide = ppt.Slides.Add(2, ppLayoutText)
    With slide
        .Shapes.Title.TextFrame.TextRange.Text = "Introduction to Market Failures"
        
        ' Add content
        Set shp = .Shapes.Placeholders(2).TextFrame.TextRange
        shp.Text = "Definition and scenarios illustrating conditions under which market failures occur." & vbCrLf & _
                   "Importance of Government Intervention"
        
        ' Add icons
        Set shp = .Shapes.AddShape(msoShapeOval, 50, 150, 50, 50)
        shp.TextFrame.TextRange.Text = ChrW(&HF080) ' fa-chart-bar
        shp.TextFrame.TextRange.Font.Name = "FontAwesome"
        shp.TextFrame.TextRange.Font.Size = 24
        
        Set shp = .Shapes.AddShape(msoShapeOval, 50, 250, 50, 50)
        shp.TextFrame.TextRange.Text = ChrW(&HF19C) ' fa-university
        shp.TextFrame.TextRange.Font.Name = "FontAwesome"
        shp.TextFrame.TextRange.Font.Size = 24
        
        ' Add talk track
        Set shp = .Shapes.AddTextbox(msoTextOrientationHorizontal, 150, 150, 500, 100)
        shp.TextFrame.TextRange.Text = "Market failures occur when goods and services within a market fail to achieve economic efficiency, leading to suboptimal allocation of resources. These inefficiencies can have widespread negative impacts, necessitating government intervention to correct and prevent further market distortions."
        shp.TextFrame.TextRange.Font.Size = 18
        shp.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft
        
        ' Add source
        Set shp = .Shapes.AddTextbox(msoTextOrientationHorizontal, 150, 250, 500, 50)
        shp.TextFrame.TextRange.Text = "Source: Samuelson, P.A., & Nordhaus, W.D., 2010: Economics."
        shp.TextFrame.TextRange.Font.Size = 14
        shp.TextFrame.TextRange.ParagraphFormat.Alignment = ppAlignLeft
    End With
    
    ' Slide 3: Types of Market Failures
    Set slide = ppt.Slides.Add(3, ppLayoutText)
    With slide
        .Shapes.Title.TextFrame.TextRange.Text = "Types of Market Failures"
        
        ' Add content
        Set shp = .Shapes.Placeholders(2).TextFrame.TextRange
        shp.Text = "Principal-Agent Problems" & vbCrLf & _
                   "When the interests of a principal (e.g., shareholders) do not align with those of an agent (e.g., managers)." & vbCrLf & _
                   "Imperfect Information" & vbCrLf & _
                   "When consumers or producers are not fully aware of the costs and benefits of their decisions." & vbCrLf & _
                   "Externalities" & vbCrLf & _
                   "Spill-over effects from production and consumption that affect third parties."
        
        ' Add icons
        Set shp = .Shapes.AddShape(msoShapeOval, 50, 150, 50, 50)
        shp.TextFrame.TextRange.Text = ChrW(&HF200) ' fa-user-tie
        shp.TextFrame.TextRange.Font.Name = "FontAwesome"
        shp.TextFrame.TextRange.Font.Size = 24
        
        Set shp = .Shapes.AddShape(msoShapeOval, 50, 250, 50, 50)
        shp.TextFrame.TextRange.Text = ChrW(&HF05A) ' fa-info-circle
        shp.TextFrame.TextRange.Font.Name = "FontAwesome"
        shp.TextFrame.TextRange.Font.Size = 24
        
        Set shp = .Shapes.AddShape(msoShapeOval, 50, 350, 50, 50)
        shp.TextFrame.TextRange.Text = ChrW(&HF064) ' fa-share-alt
        shp.TextFrame.TextRange.Font.Name = "FontAwesome"
        shp.TextFrame.TextRange.Font.Size = 24
    End With
    
    ' Slide 4: Government Solutions
    Set slide = ppt.Slides.Add(4, ppLayoutText)
    With slide
        .Shapes.Title.TextFrame.TextRange.Text = "Government Solutions to Market Failures"
        
        ' Add content
        Set shp = .Shapes.Placeholders(2).TextFrame.TextRange
        shp.Text = "Pigouvian Tax" & vbCrLf & _
                   "A corrective tax on goods causing negative externalities, like pollution." & vbCrLf & _
                   "Regulation" & vbCrLf & _
                   "Direct government controls to limit negative behaviors or encourage positive ones."
        
        ' Add icons
        Set shp = .Shapes.AddShape(msoShapeOval, 50, 150, 50, 50)
        shp.TextFrame.TextRange.Text = ChrW(&HF155) ' fa-dollar-sign
        shp.TextFrame.TextRange.Font.Name = "FontAwesome"
        shp.TextFrame.TextRange.Font.Size = 24
        
        Set shp = .Shapes.AddShape(msoShapeOval, 50, 250, 50, 50)
        shp.TextFrame.TextRange.Text = ChrW(&HF078) ' fa-balance-scale
        shp.TextFrame.TextRange.Font.Name = "FontAwesome"
        shp.TextFrame.TextRange.Font.Size = 24
    End With
    
    ' Slide 5: Conclusion
    Set slide = ppt.Slides.Add(5, ppLayoutText)
    With slide
        .Shapes.Title.TextFrame.TextRange.Text = "Conclusion"
        
        ' Add content
        Set shp = .Shapes.Placeholders(2).TextFrame.TextRange
        shp.Text = "Summary of Key Takeaways" & vbCrLf & _
                   "Highlight the critical points discussed, including types of market failures and the tools governments use to address them."
        
        ' Add icon
        Set shp = .Shapes.AddShape(msoShapeOval, 50, 150, 50, 50)
        shp.TextFrame.TextRange.Text = ChrW(&HF058) ' fa-check-circle
        shp.TextFrame.TextRange.Font.Name = "FontAwesome"
        shp.TextFrame.TextRange.Font.Size = 24
    End With
    
    ' Apply design and animations
    For Each slide In ppt.Slides
        slide.FollowMasterBackground = msoTrue
        slide.ApplyTheme "C:\Program Files\Microsoft Office\root\Office16\THEMES\Theme1.thmx" ' Replace with your theme path
        For Each shp In slide.Shapes
            If shp.HasTextFrame Then
                shp.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
                shp.TextFrame.TextRange.Font.Size = 18
            End If
        Next shp
    Next slide
    
    ' Save the presentation
    ppt.SaveAs "C:\path\to\save\MarketFailuresPresentation.pptx" ' Replace with your save path
    ppt.Close
End Sub