GENERAR PRESENTACIONES PPT CON CHATGPT.

 

CREAR UNA PPT CON CAHTGPT ES POSIBLE.

Sí. Conseguir una ppt de cualquier tema utiilizando ChatGpt es perfectamente posible, siguiendo unos determinados pasos, 

Veamos:

Pasos para crear la presentación usando VBA en PowerPoint:

---

1. Habilitar la pestaña Desarrollador en PowerPoint

Antes de empezar, necesitas habilitar la pestaña Desarrollador en PowerPoint para poder usar el editor de VBA. Aquí te explico cómo hacerlo:

1. Abrir PowerPoint.
2. Ir a Archivo > Opciones.
3. En la ventana de opciones, selecciona Personalizar cinta de opciones.
4. En la columna de la derecha, marca la opción Desarrollador.
5. Haz clic en Aceptar.

Una vez hecho esto, deberías ver la pestaña Desarrollador en la barra de herramientas de PowerPoint.

---

2. Acceder al editor VBA en PowerPoint

1. Ve a la pestaña Desarrollador en PowerPoint.
2. Haz clic en Visual Basic, lo que abrirá el editor de VBA.
3. En el editor, haz clic en Insertar en el menú superior y selecciona Módulo. Esto abrirá un nuevo módulo donde puedes pegar el código VBA.

---

3. Pegar el código VBA en el editor

1. Copia el siguiente código VBA que te proporcioné previamente:

vba
Sub CrearPresentacionChatGPT()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim slide As Object
    Dim slideIndex As Integer

    ' Crear una nueva instancia de PowerPoint
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True

    ' Crear una nueva presentación
    Set pptPres = pptApp.Presentations.Add

    ' Diapositiva 1: Introducción a ChatGPT
    slideIndex = slideIndex + 1
    Set slide = pptPres.Slides.Add(slideIndex, 1) ' Tipo de diapositiva: Título
    slide.Shapes.Title.TextFrame.TextRange.Text = "¿Qué es ChatGPT y cómo puede ayudar en la orientación educativa y profesional?"
    slide.Shapes.Placeholders(2).TextFrame.TextRange.Text = _
        "ChatGPT es un modelo de lenguaje desarrollado por OpenAI, que utiliza inteligencia artificial para generar texto de forma coherente y natural." & vbCrLf & _
        "Puede ser una herramienta útil para orientadores educativos al asistir en tareas como planificación de actividades, creación de contenido y orientación vocacional."

    ' Diapositiva 2: Características Principales de ChatGPT
    slideIndex = slideIndex + 1
    Set slide = pptPres.Slides.Add(slideIndex, 2) ' Tipo de diapositiva: Título y contenido
    slide.Shapes.Title.TextFrame.TextRange.Text = "Características clave de ChatGPT"
    slide.Shapes(2).TextFrame.TextRange.Text = _
        "1. Interacción en lenguaje natural" & vbCrLf & _
        "2. Versatilidad" & vbCrLf & _
        "3. Personalización" & vbCrLf & _
        "4. Capacidad de aprendizaje"

    ' Diapositiva 3: Aplicaciones en la Orientación Educativa y Profesional
    slideIndex = slideIndex + 1
    Set slide = pptPres.Slides.Add(slideIndex, 2) ' Tipo de diapositiva: Título y contenido
    slide.Shapes.Title.TextFrame.TextRange.Text = "¿Cómo puede ChatGPT apoyar en la orientación educativa y profesional?"
    slide.Shapes(2).TextFrame.TextRange.Text = _
        "1. Orientación Académica: Asistencia en la planificación de estudios." & vbCrLf & _
        "2. Orientación Profesional: Apoyo en la exploración vocacional y búsqueda de empleo." & vbCrLf & _
        "3. Apoyo a la Enseñanza y Aprendizaje: Sugerencias de actividades educativas." & vbCrLf & _
        "4. Evaluación Psicopedagógica: Herramientas para generar pruebas y análisis."

    ' Diapositiva 4: Construcción de Prompts Efectivos
    slideIndex = slideIndex + 1
    Set slide = pptPres.Slides.Add(slideIndex, 2) ' Tipo de diapositiva: Título y contenido
    slide.Shapes.Title.TextFrame.TextRange.Text = "¿Cómo crear buenos prompts para obtener respuestas útiles de ChatGPT?"
    slide.Shapes(2).TextFrame.TextRange.Text = _
        "1. Sé claro y específico" & vbCrLf & _
        "2. Indica el contexto" & vbCrLf & _
        "3. Haz preguntas abiertas cuando sea posible"
    
    ' Diapositiva 5: Aplicaciones en Áreas Específicas de Orientación
    slideIndex = slideIndex + 1
    Set slide = pptPres.Slides.Add(slideIndex, 2) ' Tipo de diapositiva: Título y contenido
    slide.Shapes.Title.TextFrame.TextRange.Text = "Herramientas prácticas de ChatGPT para áreas clave de la orientación"
    slide.Shapes(2).TextFrame.TextRange.Text = _
        "1. Acción Tutorial: Planificación de sesiones de tutoría." & vbCrLf & _
        "2. Orientación Académica: Ayuda con la creación de planes de estudio." & vbCrLf & _
        "3. Apoyo a la Enseñanza: Sugerencias de actividades didácticas." & vbCrLf & _
        "4. Evaluación Psicopedagógica: Creación de herramientas de evaluación."

    ' Diapositiva 6: Ventajas y Limitaciones de ChatGPT en Orientación
    slideIndex = slideIndex + 1
    Set slide = pptPres.Slides.Add(slideIndex, 2) ' Tipo de diapositiva: Título y contenido
    slide.Shapes.Title.TextFrame.TextRange.Text = "Ventajas y limitaciones al integrar ChatGPT en la orientación educativa"
    slide.Shapes(2).TextFrame.TextRange.Text = _
        "Ventajas:" & vbCrLf & _
        "• Accesibilidad" & vbCrLf & _
        "• Ahorro de tiempo" & vbCrLf & _
        "• Versatilidad" & vbCrLf & _
        "Limitaciones:" & vbCrLf & _
        "• Dependencia del contexto" & vbCrLf & _
        "• Supervisión necesaria"

    ' Diapositiva 7: Conclusión y Recomendaciones
    slideIndex = slideIndex + 1
    Set slide = pptPres.Slides.Add(slideIndex, 2) ' Tipo de diapositiva: Título y contenido
    slide.Shapes.Title.TextFrame.TextRange.Text = "Cómo integrar ChatGPT de forma efectiva en la orientación educativa y profesional"
    slide.Shapes(2).TextFrame.TextRange.Text = _
        "• Complementa, no sustituye la interacción humana." & vbCrLf & _
        "• Supervisa siempre las respuestas generadas." & vbCrLf & _
        "• Utiliza ChatGPT para ahorrar tiempo en tareas repetitivas."

    ' Finalizar
    pptApp.Activate
End Sub

2. Pega el código en el módulo del editor de VBA.

---

4. Ejecutar el código VBA

Una vez que hayas pegado el código en el editor de VBA, sigue estos pasos para ejecutar el código y crear la presentación:

1. Ejecutar el código:
   • Haz clic en el botón Ejecutar (el ícono de un triángulo verde) en la barra de herramientas del editor de VBA o presiona F5.
2. PowerPoint se abrirá automáticamente y se generará una presentación nueva con las diapositivas que describimos anteriormente. El código agregará las diapositivas con los textos y títulos ya establecidos.

---

5. Personalizar y modificar la presentación

• Modificar contenido: Puedes cambiar el texto dentro del código. Por ejemplo, puedes actualizar las diapositivas con más detalles o cambiar las fórmulas del contenido de acuerdo a tus necesidades.
• Agregar imágenes: Si deseas agregar imágenes o gráficos a las diapositivas, puedes hacerlo utilizando las funciones de VBA como Shapes.AddPicture. Esto se puede añadir en las secciones de cada diapositiva.

---

6. Guardar la presentación

Una vez que se haya generado la presentación:

1. Ve a Archivo > Guardar como.
2. Elige el formato de guardado que prefieras (como .pptx).
3. Guarda la presentación en tu computadora.

Y la cuestión es ¿de dónde saco yo ese código VBA para insertarlo?. Ahí es donde interviene ChatGpt.
Antes del paso 3 nos vamos a ChatGpt y le solicitamos que nos lo cree a partir de dos pasos dentro de chatgpt:
el primero consiste en escribir este prompt:

prompt:

"Soy orientador educativo. Necesito una presentación de diapositivas para explicar qué es chatgpt, cuales son sus características, funciones y posibilidades para trabajar en el campo de la orientación educativa y profesional. Especialmente como construir prompts adecuados a sus funciones y tareas de orientación educativa y profesional. Añade ejemplos sencillos. Dime qué necesitas para responder de forma óptima."

Luego continúo con una iteración (diálogo con ChatGpt)

"La presentación va dirigida a otros orientadores en activo. Prefiero un enfoque formal para una audiencia con nivel inicial de formación tecnológica. Ejemplos específicos de orientación y con todas las herramientas apropiadas para desarrollar la labor en las áreas de acción tutorial, orientación académica y profesional y apoyo a los procesos de enseñanza y aprendizaje y a la evaluación psicopedagógica."

Sigo iterando:

"continua desarrollando diapositivas con detalles y ejemplos visuales"

Sigo iterando:

"escribe el código VBA de esta presentación."

respuesta de ChatGpt:

¡Por supuesto! A continuación te proporcionaré un código VBA que puedes usar para crear una presentación de PowerPoint basada en la estructura que hemos desarrollado. Este código generará automáticamente una presentación en PowerPoint con los elementos que mencionamos.

Pasos para usar el código VBA:

1. Abre PowerPoint y ve a la pestaña Desarrollador. Si no la ves, habilítala:
   • Ve a Archivo > Opciones > Personalizar cinta de opciones y marca la casilla Desarrollador.
2. En la pestaña Desarrollador, haz clic en Visual Basic.
3. En el editor de VBA, selecciona Insertar > Módulo.
4. Pega el siguiente código en el módulo.
5. Presiona F5 o Ejecutar para generar la presentación.

Código VBA: (lo copio y paso a PowerPoint y continúo con el paso de copiar el código en la ppt. (4. Ejecutar el código VBA)

A partir de ahí se ejecuta y con ayuda del diseñador tenemos la presentación.

Aunque parezca enrevesado, es fácil y se aprende con un par de prácticas.

Os dejo el video tutorial en el que me he inspirado:

Y aquí la ppt una vez creada y realizada con motivo de una presentación sobre concepto, características y posibilidades de uso de ChatGpt para el colectivo de orientadores educativos y profesionales

Ver presentación en pdf: ChatGpt para orientadores.