Última actualització: juny de 2020
Aplicable a: Office 2019 i anteriors. Només Windows.
Aquí hi ha una pregunta d'un lector:
Com a part de la presentació de l'informe trimestral a la direcció, sovint necessito copiar diverses diapositives d'informació general d'altres presentacions. No és gran cosa, però seria un estalvi important poder automatitzar aquest exercici. Qualsevol macro VBA ajuda a aconseguir-ho s'agraeix!
Com acabeu d'esmentar, podeu automatitzar les diapositives per copiar i enganxar a PowerPoint mitjançant Visual Basic per a aplicacions. Si necessiteu crear diverses presentacions cada mes, aquesta automatització de còpia/importació de diapositives podria esdevenir un gran estalvi de temps!
PowerPoint VBA per afegir diapositives
Comencem amb aquest senzill exercici.
En primer lloc, assegureu-vos que la vostra pestanya de desenvolupament estigui activada i visible. Aquí teniu com fer-ho .
Suposo que ja heu creat una presentació amb macro habilitat (el tipus de fitxer és .pptm), que heu col·locat al mateix directori que la vostra presentació d'origen (que em referiré com a source.pptm). A continuació s'explica com crear una presentació de PowerPoint amb VBA .
En primer lloc, fem una còpia de seguretat d'aquesta presentació (simple còpia i desa).
A continuació, anem a inserir la següent macro en un mòdul VBA nou a la presentació de destinació. Podeu trobar tots els detalls sobre com fer-ho al nostre tutorial de PowerPoint VBA .
Aquí teniu el codi VBA que necessitareu per copiar i enganxar automàticament les diapositives.
Un parell de suposicions que vaig fer:
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
Òbviament, no dubteu a canviar la indexació del número de diapositives al codi perquè s'ajustin als vostres requisits.
Podeu fer-ho passar per diverses presentacions i inserir diapositives específiques de cadascuna al vostre informe de gestió.
PowerPoint VBA per duplicar diapositives
En lloc de copiar diapositives a una altra presentació, potser voldreu clonar una o més diapositives a la presentació:
Sub CopySlides()
' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly
ActivePresentation.Slides(3).Duplicate
End Sub
Aquests eren només un parell d'exemples senzills d'automatització de PowerPoint. Els lectors que busquen preguntes específiques, no dubteu a enviar una consulta a través de la pàgina de contacte.
Espero que us ajudi 🙂
El problema de l'exemple anterior va ser que el format del tema de les presentacions originals no es va copiar. Suposem que els 2 fulls tenien un format diferent, això és el que hauria passat:
Exemple 1
|
|
Aquesta és la presentació amb la diapositiva que volem copiar:
Resultat:
Per solucionar aquest problema podeu utilitzar el codi següent:
|
|
A part de copiar la diapositiva, el codi anterior copia el disseny. Si volguéssiu fer-ho manualment, copiaríeu el slidemaster a la nova presentació. No podeu copiar el slidemaster mitjançant VBA, sinó que podeu definir la propietat de disseny de les diapositives.
Soluciona Outlook quan pots rebre correu però no enviar-lo. Comprova la safata de sortida, el mode sense connexió, l'inici de sessió, la configuració SMTP, els perfils i els canvis de Microsoft 365.
Creeu un seguiment de nòmines quinzenal senzill a Excel per a un equip petit, amb hores, salaris, deduccions, indicadors de revisió, resums i orientació sobre la gestió de registres.
Creeu una presentació d'incorporació senzilla per a nous empleats amb una estructura pràctica de 12 diapositives que cobreixi les expectatives del lloc, les eines, la seguretat, les polítiques, la seguretat física i les accions de la primera setmana.
Exporteu els contactes de Salesforce a Excel de manera neta: creeu l'informe adequat, exporteu només els detalls en CSV, importeu amb Power Query, preserveu els IDs i els zeros inicials, elimineu duplicats de manera segura i verifiqueu el resultat.
Utilitzeu aquest horari de neteja setmanal imprimible per a amfitrions d'Airbnb per organitzar la neteja de canvi d'hostes, tasques de neteja profunda, reposició, comprovacions de seguretat i impressió de Word a PDF.
Organitza les factures mensuals a Excel amb un disseny gratuït de calendari de factures, seguiment de dates de venciment, fórmules d'estat, camps de pagament automàtic i consells pràctics de flux de caixa.
Arregla les fórmules d'Excel que no es calculen automàticament en tres passos: activa el càlcul automàtic, recalcula i repara les cel·les de fórmula.
Creeu un registre de despeses pràctic per a freelancers als EUA amb categories compatibles amb l'annex C, camps de rebuts, registre de quilometratge i actualitzacions de les normes de l'IRS per al 2026.
Compareu les millors aplicacions gratuïtes de facturació per a negocis de serveis als EUA el 2026, incloent-hi Zoho Invoice, Wave, Square, PayPal i Invoice Ninja.
Utilitzeu una plantilla gratuïta d'Excel per al seguiment de propietats en lloguer per organitzar ingressos, despeses, propietats i flux de caixa mensual. Apreneu què registrar, com configurar-la i els errors a evitar.
