Generador de Macros VBA para PowerPoint con Copilot

Sub ActuarComoExpertoVBA() Dim pptPres As Presentation Dim sld As Slide Dim idx As Integer Dim arrTitulos() As String Dim arrTextos() As String Dim i As Integer ' Definir el número de diapositivas (XX) Const numSlides As Integer = 5 ' Cambiar XX por el número deseado ' Inicializar arrays con títulos y textos (ejemplo para [TOPIC] - reemplazar contenido) ReDim arrTitulos(1 To numSlides) ReDim arrTextos(1 To numSlides) ' Datos de ejemplo - sustituir por investigación real sobre [TOPIC] arrTitulos(1) = "Introducción a [TOPIC]" arrTextos(1) = "Definición básica y contexto histórico de [TOPIC]." arrTitulos(2) = "Principios Clave" arrTextos(2) = "Tres fundamentos esenciales: precisión, escalabilidad y eficiencia." arrTitulos(3) = "Aplicaciones Prácticas" arrTextos(3) = "Casos de uso en industria, educación y análisis de datos." arrTitulos(4) = "Herramientas Recomendadas" arrTextos(4) = "Software y librerías: Python, R, y plataformas cloud (AWS, Azure)." arrTitulos(5) = "Conclusión y Próximos Pasos" arrTextos(5) = "Resumen de beneficios y sugerencias para profundizar en [TOPIC]." ' Obtener presentación activa Set pptPres = ActivePresentation ' Crear diapositivas con título y texto For i = 1 To numSlides Set sld = pptPres.Slides.Add(pptPres.Slides.Count + 1, ppLayoutTitleOnly) sld.Shapes.Title.TextFrame.TextRange.Text = arrTitulos(i) sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 150, 600, 300).TextFrame.TextRange.Text = arrTextos(i) Next i MsgBox "Macro completada: " & numSlides & " diapositivas creadas sobre [TOPIC]." End Sub