¿Cómo copiar diapositivas en su presentación de PowerPoint con VBA Macros?

Última actualización: junio de 2020

Aplicable a: Office 2019 y anteriores. Solo ventanas.

Aquí hay una pregunta de un lector:

Como parte de la presentación de mi informe trimestral a la gerencia, a menudo necesito copiar varias diapositivas de información general de otras presentaciones. No es gran cosa, pero sería un ahorro significativo poder automatizar este ejercicio. ¡Cualquier ayuda de VBA Macro para lograr eso es apreciada!

Como acaba de mencionar, puede automatizar el copiado y pegado de diapositivas en PowerPoint utilizando Visual Basic para aplicaciones. Si necesita crear varias presentaciones cada mes, esta automatización de copia/importación de diapositivas podría convertirse en un gran ahorro de tiempo.

PowerPoint VBA para agregar diapositivas

Empecemos con este sencillo ejercicio.

En primer lugar, asegúrese de que su pestaña de desarrollo esté habilitada y visible. Así es como se hace .

Asumiré que ya ha creado una presentación habilitada para Macro (el tipo de archivo es .pptm), que ha colocado en el mismo directorio que su presentación de origen (a la que me referiré como source.pptm). Aquí se explica cómo crear una presentación de PowerPoint con VBA .

En primer lugar, hagamos una copia de seguridad de esa presentación (simple copiar y guardar).

Luego, sigamos adelante e insertemos la siguiente macro en un nuevo módulo de VBA en su presentación de destino. Todos los detalles sobre cómo hacerlo se pueden encontrar en nuestro tutorial de PowerPoint VBA .

Aquí está el código VBA que necesitará para copiar y pegar automáticamente las diapositivas.

Un par de suposiciones que hice:

• Su presentación de origen se llama source.pptm
•  Pegará las diapositivas 2 a 4 de su presentación de origen.
• Colocará las diapositivas copiadas a partir de la diapositiva 5.

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

Obviamente, no dude en cambiar la indexación del número de diapositiva en el código para que se ajuste a sus requisitos.

Puede hacer que pase por varias presentaciones e insertar diapositivas específicas de cada una en su informe de gestión.

PowerPoint VBA para duplicar diapositivas

En lugar de copiar diapositivas a otra presentación, es posible que desee clonar una o más diapositivas en su presentación:

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

Esos fueron solo un par de ejemplos simples de automatización de PowerPoint. Los lectores que buscan preguntas específicas, no duden en enviar una consulta a través de la página de contacto.

Espero que ayude 🙂