Kako kopirati dodane diapozitive v svojo predstavitev PowerPoint z makri VBA?

Zadnja posodobitev: junij 2020

Velja za: Office 2019 in starejše. Samo Windows.

Tukaj je vprašanje bralca:

Kot del moje predstavitve četrtletnega poročila vodstvu moram pogosto kopirati več diapozitivov s splošnimi informacijami iz drugih predstavitev. Nič hudega, vendar bi bilo bistveno privarčevati, če bi lahko avtomatizirali to vajo. Vsaka pomoč makrov VBA pri doseganju tega je cenjena!

Kot ste pravkar omenili, lahko avtomatizirate kopiranje in lepljenje diapozitivov v PowerPointu z uporabo Visual Basica za aplikacije. Če morate vsak mesec ustvariti več predstavitev, bi ta avtomatizacija kopiranja/uvoza diapozitivov lahko prihranila veliko časa!

PowerPoint VBA za dodajanje diapozitivov

Nadaljujmo s to preprosto vajo.

Najprej se prepričajte, da je vaš zavihek za razvoj omogočen in viden. Tukaj je opisano, kako to storiti .

Predvidevam, da ste že ustvarili predstavitev, ki podpira makroe (vrsta datoteke je .pptm), da ste jo postavili v isti imenik kot izvorna predstavitev (ki jo bom imenoval source.pptm). Tukaj je opisano, kako ustvarite PowerPointovo predstavitev z VBA .

Najprej naredimo varnostno kopijo te predstavitve (preprosto kopirajte in shranite).

Nato pojdimo naprej in vstavimo naslednji makro v nov modul VBA v vaši ciljni predstavitvi. Vse podrobnosti o tem, kako to storiti, najdete v naši vadnici za PowerPoint VBA .

Tukaj je koda VBA, ki jo potrebujete za samodejno kopiranje in lepljenje diapozitivov.

Nekaj ​​domnev, ki sem jih naredil:

• Vaša izvorna predstavitev se imenuje source.pptm
•  Prilepili boste diapozitive 2–4 iz izvorne predstavitve
• Kopirane diapozitive boste postavili na začetni diapozitiv 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

Očitno lahko spremenite indeksiranje številk diapozitivov v kodi, tako da bodo ustrezali vašim zahtevam.

Lahko ga naredite zanko skozi več predstavitev in vstavite posebne diapozitive iz vsake v svoje poročilo o upravljanju.

PowerPoint VBA za podvajanje diapozitivov

Namesto kopiranja diapozitivov v drugo predstavitev boste morda želeli klonirati enega ali več diapozitivov v svoji predstavitvi:

Sub CopySlides()

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

ActivePresentation.Slides(3).Duplicate

End Sub

To je bilo le nekaj preprostih primerov PowerPoint avtomatizacije. Bralci, ki iščejo konkretna vprašanja, pošljite povpraševanje preko strani Kontakt.

Upam, da pomaga 🙂