Sub CreateAIPresentation()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim slide As Object
    Dim shp As Object

    ' Attempt to get an existing instance of PowerPoint, else create a new one.
    On Error Resume Next
    Set pptApp = GetObject(, "PowerPoint.Application")
    If pptApp Is Nothing Then
        Set pptApp = CreateObject("PowerPoint.Application")
    End If
    On Error GoTo 0
    pptApp.Visible = True

    ' Create a new presentation.
    Set pptPres = pptApp.Presentations.Add

    ' --- Slide 1: Title Slide ---
    Set slide = pptPres.Slides.Add(1, 1) ' 1 = ppLayoutTitle
    slide.Shapes(1).TextFrame.TextRange.Text = "The Benefits of Artificial Intelligence in Healthcare"
    slide.Shapes(2).TextFrame.TextRange.Text = "Subtitle or Your Name Here"

    ' --- Slide 2: Introduction ---
    Set slide = pptPres.Slides.Add(2, 2) ' 2 = ppLayoutText
    slide.Shapes(1).TextFrame.TextRange.Text = "Introduction"
    slide.Shapes(2).TextFrame.TextRange.Text = _
          "• Overview of AI applications" & vbCrLf & _
          "• Emerging trends in healthcare" & vbCrLf & _
          "• Potential impact on patient care"
    ' Add a placeholder image shape.
    Set shp = slide.Shapes.AddShape(1, 400, 150, 200, 150) ' 1 = msoShapeRectangle
    shp.TextFrame.TextRange.Text = "Image Placeholder"

    ' --- Slide 3: Content Section 1 - Enhanced Diagnostics ---
    Set slide = pptPres.Slides.Add(3, 2)
    slide.Shapes(1).TextFrame.TextRange.Text = "Enhanced Diagnostics"
    slide.Shapes(2).TextFrame.TextRange.Text = _
          "• AI-driven imaging analysis" & vbCrLf & _
          "• Early detection of diseases" & vbCrLf & _
          "• Improved diagnostic accuracy"
    Set shp = slide.Shapes.AddShape(1, 400, 150, 200, 150)
    shp.TextFrame.TextRange.Text = "Image Placeholder"

    ' --- Slide 4: Content Section 2 - Personalized Treatment ---
    Set slide = pptPres.Slides.Add(4, 2)
    slide.Shapes(1).TextFrame.TextRange.Text = "Personalized Treatment"
    slide.Shapes(2).TextFrame.TextRange.Text = _
          "• Customized treatment plans" & vbCrLf & _
          "• Data-driven decisions" & vbCrLf & _
          "• Better patient outcomes"
    Set shp = slide.Shapes.AddShape(1, 400, 150, 200, 150)
    shp.TextFrame.TextRange.Text = "Image Placeholder"

    ' --- Slide 5: Content Section 3 - Operational Efficiency ---
    Set slide = pptPres.Slides.Add(5, 2)
    slide.Shapes(1).TextFrame.TextRange.Text = "Operational Efficiency"
    slide.Shapes(2).TextFrame.TextRange.Text = _
          "• Streamlined workflows" & vbCrLf & _
          "• Cost reduction" & vbCrLf & _
          "• Time-saving automation"
    Set shp = slide.Shapes.AddShape(1, 400, 150, 200, 150)
    shp.TextFrame.TextRange.Text = "Image Placeholder"

    ' --- Slide 6: Content Section 4 - Predictive Analytics ---
    Set slide = pptPres.Slides.Add(6, 2)
    slide.Shapes(1).TextFrame.TextRange.Text = "Predictive Analytics"
    slide.Shapes(2).TextFrame.TextRange.Text = _
          "• Forecasting health trends" & vbCrLf & _
          "• Risk management" & vbCrLf & _
          "• Data insights for proactive care"
    Set shp = slide.Shapes.AddShape(1, 400, 150, 200, 150)
    shp.TextFrame.TextRange.Text = "Image Placeholder"

    ' --- Slide 7: Content Section 5 - Research and Innovation ---
    Set slide = pptPres.Slides.Add(7, 2)
    slide.Shapes(1).TextFrame.TextRange.Text = "Research and Innovation"
    slide.Shapes(2).TextFrame.TextRange.Text = _
          "• Accelerating medical research" & vbCrLf & _
          "• Innovative treatment discoveries" & vbCrLf & _
          "• AI-driven breakthroughs"
    Set shp = slide.Shapes.AddShape(1, 400, 150, 200, 150)
    shp.TextFrame.TextRange.Text = "Image Placeholder"

    ' --- Slide 8: Conclusion ---
    Set slide = pptPres.Slides.Add(8, 2)
    slide.Shapes(1).TextFrame.TextRange.Text = "Conclusion"
    slide.Shapes(2).TextFrame.TextRange.Text = _
          "• Recap of key benefits" & vbCrLf & _
          "• Future outlook for AI in healthcare" & vbCrLf & _
          "• Final thoughts"
    Set shp = slide.Shapes.AddShape(1, 400, 150, 200, 150)
    shp.TextFrame.TextRange.Text = "Image Placeholder"
End Sub