Como copiar engadir diapositivas á túa presentación de PowerPoint con macros VBA?

Última actualización: xuño de 2020

Aplicable a: Office 2019 e anteriores. Só Windows.

Aquí tes a pregunta dun lector:

Como parte da miña presentación de informe trimestral á dirección, moitas veces teño que copiar varias diapositivas de información xeral doutras presentacións. Non é gran cousa, pero sería un aforro significativo poder automatizar este exercicio. Calquera macro VBA axuda a logralo.

Como acabas de mencionar, podes automatizar as diapositivas copiar e pegar en PowerPoint usando Visual Basic para aplicacións. Se precisas crear varias presentacións cada mes, esta automatización de copia/importación de diapositivas pode converterse nun gran aforro de tempo.

PowerPoint VBA para engadir diapositivas

Imos con este sinxelo exercicio.

En primeiro lugar, asegúrate de que a túa pestana de desenvolvemento estea activada e visible. Aquí tes como facelo .

Supoño que xa creou unha presentación habilitada para Macro (o tipo de ficheiro é .pptm), que colocou no mesmo directorio que a presentación de orixe (á que me referirei como source.pptm). Aquí tes como crear unha presentación de PowerPoint con VBA .

En primeiro lugar, fagamos unha copia de seguridade desa presentación (copia sinxela e garda).

A continuación, sigamos e inserimos a seguinte Macro nun novo módulo VBA na túa presentación de destino. Podes atopar todos os detalles sobre como facelo no noso tutorial de PowerPoint VBA .

Aquí tes o código VBA que necesitarás para copiar e pegar automaticamente as diapositivas.

Un par de suposicións que fixen:

  • A túa presentación de orixe chámase source.pptm
  •  Pegarás as diapositivas 2-4 da túa presentación de orixe
  • Colocarás as diapositivas copiadas a partir da 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, non dubides en cambiar a indexación do número de diapositivas no código para que se axusten ás túas necesidades.

Podes facelo pasar por varias presentacións e inserir diapositivas específicas de cada unha no teu informe de xestión.

PowerPoint VBA para duplicar diapositivas

En lugar de copiar diapositivas noutra presentación, pode querer clonar unha ou máis diapositivas na súa 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

Eses eran só un par de exemplos sinxelos de automatización de PowerPoint. Os lectores que busquen preguntas específicas, non dubiden en enviar unha consulta a través da páxina de contacto.

Espero que axude 🙂


Como escribir de dereita a esquerda en Microsoft Office 2016, 2019 / 365?

Como escribir de dereita a esquerda en Microsoft Office 2016, 2019 / 365?

Aprende a cambiar de teclado LTR a RTL en Microsoft Word.

Como configurar a cor da fonte do texto de Excel con VBA?

Como configurar a cor da fonte do texto de Excel con VBA?

Aprende a usar Excel VBA para cambiar o texto, a cor, o tamaño e as propiedades da cela mediante programación.

Como comprobar se unha cela ou un intervalo de varias celas está baleiro con Excel VBA?

Como comprobar se unha cela ou un intervalo de varias celas está baleiro con Excel VBA?

Aprende a programar vba para buscar celas baleiras nunha folla de traballo ou rango de celas.

Rendemento lento de Microsoft Word? Sete consellos para facer que Word 365 / 2019 / 2016 funcione moito máis rápido

Rendemento lento de Microsoft Word? Sete consellos para facer que Word 365 / 2019 / 2016 funcione moito máis rápido

Aprende como podes facer que Word 365 funcione máis rápido desactivando os complementos, actualizando o teu hardware e eliminando

Podo eliminar os ficheiros vc_red do disco duro do meu ordenador persoal?

Podo eliminar os ficheiros vc_red do disco duro do meu ordenador persoal?

Aprende todo o necesario sobre a instalación de VC_RED e os ficheiros de armario. É seguro eliminalos do teu sistema operativo Windows 7 e 10?

Mostrar o texto do encabezado e do pé de páxina só na primeira páxina en Word 365/2016/2019 e Google Docs?

Mostrar o texto do encabezado e do pé de páxina só na primeira páxina en Word 365/2016/2019 e Google Docs?

Aprende a mostrar o pé de páxina e o encabezado na primeira páxina só en Word 365, 2016 e 2019; así como en Documentos de Google

Como traballar coas caixas de mensaxes e de entrada en PowerPoint VBA?

Como traballar coas caixas de mensaxes e de entrada en PowerPoint VBA?

Aprende a codificar caixas de mensaxes e entradas con VBA en PowerPoint

Como crear e engadir diapositivas a presentacións de PowerPoint con VBA?

Como crear e engadir diapositivas a presentacións de PowerPoint con VBA?

Aprende a escribir unha macro VBA sinxela para inserir diapositivas e crear unha nova presentación

Como podo modificar as cores do meu tema de visualización de Office 2016?

Como podo modificar as cores do meu tema de visualización de Office 2016?

Aprende a aplicar esquemas de cores personalizados de Office.

Como abrir ficheiros .one en ordenadores MAC e Windows?

Como abrir ficheiros .one en ordenadores MAC e Windows?

Aprende a lanzar extensións de ficheiros de OneNote de MAC e Windows