Sub ModeloProgramacion()
    ' Crea una nueva presentación
    Dim ppt As PowerPoint.Application
    Set ppt = New PowerPoint.Application
    ppt.Presentations.Add

    ' Crea la portada
    Dim sld As PowerPoint.Slide
    Set sld = ActivePresentation.Slides.Add(1, ppLayoutTitleOnly)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Introducción a la programación"
    sld.Shapes.Placeholders.Item(2).TextFrame.TextRange.Text = "Nombre del presentador y fecha"

    ' Agrega la diapositiva de ¿Qué es la programación?
    Set sld = ActivePresentation.Slides.Add(2, ppLayoutTitleOnly)
    sld.Shapes.Title.TextFrame.TextRange.Text = "¿Qué es la programación?"
    sld.Shapes.Placeholders.Item(2).TextFrame.TextRange.Text = "Definición de la programación, tipos de programación y ejemplos de programas comunes"

    ' Agrega la diapositiva de herramientas de programación
    Set sld = ActivePresentation.Slides.Add(3, ppLayoutTitleOnly)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Herramientas de programación"
    sld.Shapes.Placeholders.Item(2).TextFrame.TextRange.Text = "Lenguajes de programación, entornos de desarrollo integrado y herramientas de depuración y prueba de programas"

    ' Agrega la diapositiva de fundamentos de la programación
    Set sld = ActivePresentation.Slides.Add(4, ppLayoutTitleOnly)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Fundamentos de la programación"
    sld.Shapes.Placeholders.Item(2).TextFrame.TextRange.Text = "Variables, tipos de datos, operadores, estructuras de control de flujo, funciones y procedimientos"

    ' Agrega la diapositiva de programación avanzada
    Set sld = ActivePresentation.Slides.Add(5, ppLayoutTitleOnly)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Programación avanzada"
    sld.Shapes.Placeholders.Item(2).TextFrame.TextRange.Text = "Programación orientada a objetos, manipulación de archivos y bases de datos, programación web y aplicaciones móviles, algoritmos y estructuras de datos"

    ' Agrega la diapositiva de consejos para programadores principiantes
    Set sld = ActivePresentation.Slides.Add(6, ppLayoutTitleOnly)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Consejos para programadores principiantes"
    sld.Shapes.Placeholders.Item(2).TextFrame.TextRange.Text = "Consejos para aprender a programar, errores comunes y cómo evitarlos, y recursos útiles para programadores principiantes"

    ' Agrega la diapositiva de conclusión
    Set sld = ActivePresentation.Slides.Add(7, ppLayoutTitleOnly)
    sld.Shapes.Title.TextFrame.TextRange.Text = "Conclusión"
    sld.Shapes.Placeholders.Item(2).TextFrame.TextRange.Text = "Resumen de los puntos principales, invitación a hacer preguntas y comentarios, y datos de contacto del presentador"

    ' Muestra la presentación
    ppt.Visible = True
End Sub