¿Cómo crear y agregar diapositivas a presentaciones de PowerPoint con VBA?

Hace un par de días, un lector preguntó si había una manera de automatizar la creación de presentaciones de PowerPoint desde cero y luego agregar rápidamente diapositivas a esa presentación existente. Pensé que ese script podría estar en la lista de las macros de PowerPoint más útiles. 

Como indicamos anteriormente, PowerPoint no incluye una grabadora de macros (a diferencia de Excel y Word, que tienen grabadoras integradas para macros). Por lo tanto, nos quedamos con el viejo Visual Basic para aplicaciones que podemos usar para crear macros simples para automatizar PowerPoint. Existen otras alternativas para la automatización de PowerPoint, pero van más allá del alcance de este tutorial.

En el breve tutorial de hoy, repasaremos tres casos de uso diferentes:

  1. Nueva creación de presentación (en blanco o usando una plantilla)
  2. Agregue diapositivas a una presentación existente.
  3. Una combinación de los dos casos mencionados anteriormente (Crear desde cero y adición de diapositivas)

Empecemos.

Mira la cinta. Si no ve la entrada Desarrollador en el menú, antes de comenzar a codificar, deberá habilitar la pestaña Desarrollador.

Después de hacer que el menú Desarrollador sea visible en su Cinta, continúe y presione Desarrollador , luego presione el botón Visual Basic (o simplemente continúe y presione Alt + F11) para abrir el IDE de Visual Basic.

VBA para crear una presentación de PowerPoint

  1. En el Editor de VB, haga clic derecho en VBAProject y presione Insertar .
  2. Seleccione Módulo .
  3. Pegue el siguiente código en el módulo recién creado.
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
  1. Presiona Archivo y luego Guardar.
  2. Para ejecutar su código, presione Ejecutar y luego seleccione Ejecutar formulario de sub/usuario (o simplemente F5).
  3. Cierre el editor de VB.

VBA para insertar diapositivas

  1. En el Editor de VB, haga clic derecho en VBAProject y presione Insertar.
  2. Seleccionar módulo
  3. Pegue el siguiente código en el módulo recién creado.
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
  1. Presiona Archivo y luego Guardar.
  2. Para ejecutar su código, presione Ejecutar y luego seleccione Ejecutar formulario de sub/usuario (o simplemente F5).
  3. Cierre el editor de VB.

Macro para configurar una nueva presentación y agregar diapositivas

Eso sería simplemente mezclar los dos fragmentos descritos anteriormente.

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

A continuación, puede consultar nuestro tutorial sobre la creación programática de formas en PowerPoint con VBA

Generar una presentación de PowerPoint desde Excel

El último caso es que le gustaría crear una presentación de PowerPoint directamente desde una hoja de cálculo de Excel. Puede emplear la misma técnica desde Word y otras aplicaciones de Microsoft 365.

  • Vincule la hoja de cálculo al modelo de datos de PowerPoint (desde Herramientas>>Referencias)
  • Inserte un botón en su hoja de cálculo de Excel (Desarrollador >> Insertar y luego elija un botón de comando).
  • Inserte el código VBA a continuación en su proyecto VBA de hoja de cálculo (directamente en la hoja o en un módulo VBA)
  • Modifique el script según sea necesario.
  • Ejecutar (pulsar F5) y probar el resultado.
Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

Disfruta 🙂

Ventajas de Excel VBA PowerPoint

  • Usar VBA en Powerpoint hace que sea fácil de manejar si un archivo ppt tiene tantas diapositivas con contenido enorme.
  • VBA con Powerpoint da un toque de automatización incluso con funciones limitadas disponibles.

Contras de Excel VBA PowerPoint

  • Necesitamos seleccionar la Biblioteca de objetos de Microsoft PowerPoint 15.0 de la opción Referencia ubicada en la opción del menú Herramienta, que necesitamos al inicio de ejemplo-1, cada vez que ejecutamos el código de PowerPoint.

Cosas para recordar

  • Guarde el archivo en el formato de presentación habilitada para macros después de escribir el código. Esto nos ayudará a evitar perder el código y utilizar el mismo varias veces en el futuro.
  • La función de grabación no funcionará aquí ya que necesitamos saltar de Excel a PowerPoint cambiando la interfaz entre las páginas.
  • Compile siempre el código antes de ejecutarlo. Esto le ayudará a encontrar el error en el código. Esto es bastante útil cuando escribimos grandes líneas de código.
  • Para ejecutar e implementar el código necesitamos abrir la hoja de Excel con el gráfico que queremos pegar en la diapositiva de PowerPoint.
  • Podemos alinear el gráfico en PowerPoint según nuestras necesidades.

Cómo configurar Outlook para abrir respuestas y reenvíos en una ventana emergente

Cómo configurar Outlook para abrir respuestas y reenvíos en una ventana emergente

Aprenda cómo cambiar la configuración en Microsoft Outlook para abrir respuestas y reenvíos en una ventana emergente, mejorando su eficiencia al gestionar correos electrónicos.

7 soluciones sencillas para arreglar Fallout 4 que falla en el problema de la PC

7 soluciones sencillas para arreglar Fallout 4 que falla en el problema de la PC

¿Fallout 4 se bloquea al iniciar? ¡¡No es un gran trato!! En este artículo, obtendrá las mejores y más sencillas soluciones que solucionarán el bloqueo de Fallout 4 en la PC.

[CORREGIDO] ¿Cómo arreglar el cambio de avatar de Discord demasiado rápido?

[CORREGIDO] ¿Cómo arreglar el cambio de avatar de Discord demasiado rápido?

Obteniendo Discord, ¿estás cambiando tu avatar demasiado rápido? Resuelve el error de cambio de avatar en Discord con las soluciones enumeradas en este artículo.

Solucione el error ESRV_SVC_QUEENCREEK en Windows 10/11 [3 CORRECCIONES]

Solucione el error ESRV_SVC_QUEENCREEK en Windows 10/11 [3 CORRECCIONES]

Si se pregunta cómo corregir el error ESRV_SVC_QUEENCREEK en Windows 10/11, siga estas correcciones y soluciones efectivas para resolver el problema.

[Mejores soluciones] Arreglar DS4Windows que no detecta el controlador en Windows 10

[Mejores soluciones] Arreglar DS4Windows que no detecta el controlador en Windows 10

¿DS4Windows no detecta el controlador en Windows 10? Aquí hay una solución. Pruebe estas correcciones y comience a usar el controlador con su juego de PC favorito.

[CORREGIDO] Errores de Rise of the Tomb Raider, fallas, caída de FPS, NTDLL, error al iniciar y más

[CORREGIDO] Errores de Rise of the Tomb Raider, fallas, caída de FPS, NTDLL, error al iniciar y más

Obtener errores de Rise of the Tomb Raider como bloqueos, congelamiento, FPS bajo y otros, luego siga las correcciones dadas una por una para jugar el juego fácilmente...

Cómo hacer que la semana del calendario comience con el lunes (EXPLICACIÓN)

Cómo hacer que la semana del calendario comience con el lunes (EXPLICACIÓN)

Para configurar su calendario para que comience la semana con el lunes, debe buscar en la configuración del calendario. La opción suele estar a un par de toques/clics de distancia.

Cómo exportar mensajes de chat de Discord

Cómo exportar mensajes de chat de Discord

Discord ofrece un historial de mensajes ilimitado, pero si desea exportar sus mensajes, deberá utilizar una solución alternativa. Así es cómo.

[Solucionado] El controlador WudfRd no pudo cargar el error 219 en Windows 10

[Solucionado] El controlador WudfRd no pudo cargar el error 219 en Windows 10

Si encuentra que el Driver WudfRd no pudo cargar el error con un ID de evento 219 en Windows 10, siga las correcciones que se proporcionan aquí y resuelva el error 219 de manera efectiva.

Error de instalación detenida en Xbox One [11 formas principales]

Error de instalación detenida en Xbox One [11 formas principales]

Recibir el error de detención de la instalación de Xbox One al intentar instalar juegos, luego sigue las correcciones y resuelve el error de instalación detenida en Xbox One.