Dame un prompt optimizado para que otra IA cree una presentación de PowerPoint con VBA. La presentación debe tener 5 diapositivas, incluida la portada. Usa el mínimo texto posible. El código generado debe ser sencillo. El tema es animales invertebrados.

Genera código VBA para PowerPoint que cree una presentación de 5 diapositivas sobre animales invertebrados.

Estructura

1. Portada: "Animales Invertebrados"

2. Artrópodos: insectos, arácnidos, crustáceos

3. Moluscos: caracoles, pulpos, almejas

4. Cnidarios: medusas, corales

5. Resumen: características principales

Requisitos

• Código VBA simple y directo

• Texto mínimo (máximo 3 líneas por diapositiva)

• Fuente Arial, tamaño 24 títulos, 18 contenido

• Fondo azul claro

• Comentarios indicando dónde agregar imágenes

• Sin transiciones automáticas

Proporciona solo el código VBA completo y funcional.

Sub CrearPresentacionInvertebrados()

    Dim ppt As Presentation

    Dim sld As Slide

    Dim i As Integer

    ' Datos de las diapositivas

    Dim titulos As Variant

    Dim contenidos As Variant

    Dim layouts As Variant

    titulos = Array("Animales Invertebrados", "Artrópodos", "Moluscos", "Cnidarios", "Resumen")

    contenidos = Array( _

        "", _

        "• Insectos" & vbCrLf & "• Arácnidos" & vbCrLf & "• Crustáceos", _

        "• Caracoles" & vbCrLf & "• Pulpos" & vbCrLf & "• Almejas", _

        "• Medusas" & vbCrLf & "• Corales", _

        "• No tienen esqueleto interno" & vbCrLf & "• Gran diversidad" & vbCrLf & "• Hábitats variados" _

    )

    layouts = Array(ppLayoutTitle, ppLayoutText, ppLayoutText, ppLayoutText, ppLayoutText)

    ' Crear presentación y configurar fondo

    Set ppt = Application.Presentations.Add

    With ppt.SlideMaster.Background.Fill

        .ForeColor.RGB = RGB(173, 216, 230)

        .Solid

    End With

    ' Crear todas las diapositivas

    For i = 0 To UBound(titulos)

        Set sld = ppt.Slides.Add(i + 1, layouts(i))

        ' Configurar título

        With sld.Shapes.Title.TextFrame.TextRange

            .Text = titulos(i)

            .Font.Name = "Arial"

            .Font.Size = 24

        End With

        ' Configurar contenido (solo para diapositivas con texto)

        If layouts(i) = ppLayoutText And contenidos(i) <> "" Then

            With sld.Shapes.Placeholders(2).TextFrame.TextRange

                .Text = contenidos(i)

                .Font.Name = "Arial"

                .Font.Size = 18

            End With

        End If

    Next i

End Sub