¿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 🙂