Sub CrearPresentacionRenacimiento()
    Dim ppt As Presentation
    Dim slide As slide
    Dim slideIndex As Integer
    
    ' Crear una nueva presentación
    Set ppt = Application.Presentations.Add
    
    ' Diapositiva 1 - Título
    slideIndex = slideIndex + 1
    Set slide = ppt.Slides.Add(slideIndex, ppLayoutTitle)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Artistas del Renacimiento"
    slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = "Pintores, Arquitectos y Escultores"

    ' Diapositiva 2 - Introducción
    slideIndex = slideIndex + 1
    Set slide = ppt.Slides.Add(slideIndex, ppLayoutText)
    slide.Shapes.Title.TextFrame.TextRange.Text = "¿Qué fue el Renacimiento?"
    slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = _
        "El Renacimiento fue un movimiento cultural nacido en Italia entre los siglos XIV y XVI. " & _
        "Se caracterizó por el regreso a los valores clásicos, el humanismo, y un gran florecimiento de las artes."

    ' Diapositiva 3 - Pintores
    slideIndex = slideIndex + 1
    Set slide = ppt.Slides.Add(slideIndex, ppLayoutText)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Pintores del Renacimiento"
    slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = _
        "• Leonardo da Vinci – La Última Cena, La Gioconda" & vbCrLf & _
        "• Rafael Sanzio – La Escuela de Atenas" & vbCrLf & _
        "• Sandro Botticelli – El nacimiento de Venus" & vbCrLf & _
        "• Miguel Ángel – Frescos de la Capilla Sixtina"

    ' Diapositiva 4 - Arquitectos
    slideIndex = slideIndex + 1
    Set slide = ppt.Slides.Add(slideIndex, ppLayoutText)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Arquitectos del Renacimiento"
    slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = _
        "• Filippo Brunelleschi – Cúpula de Florencia" & vbCrLf & _
        "• Leon Battista Alberti – Santa Maria Novella" & vbCrLf & _
        "• Andrea Palladio – Villas palladianas y tratados de arquitectura"

    ' Diapositiva 5 - Escultores
    slideIndex = slideIndex + 1
    Set slide = ppt.Slides.Add(slideIndex, ppLayoutText)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Escultores del Renacimiento"
    slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = _
        "• Donatello – David (bronce), Gattamelata" & vbCrLf & _
        "• Miguel Ángel – David (mármol), La Piedad" & vbCrLf & _
        "• Lorenzo Ghiberti – Puertas del Paraíso (Florencia)"

    ' Diapositiva 6 - Conclusión
    slideIndex = slideIndex + 1
    Set slide = ppt.Slides.Add(slideIndex, ppLayoutText)
    slide.Shapes.Title.TextFrame.TextRange.Text = "Conclusión"
    slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = _
        "El Renacimiento fue una época de esplendor artístico y cultural. " & _
        "Sus artistas sentaron las bases del arte moderno y siguen siendo fuente de inspiración hasta hoy."

    MsgBox "Presentación creada con éxito.", vbInformation
End Sub