Viimati värskendatud: juuni 2020
Kohaldatav: Office 2019 ja vanemad. Ainult Windows.
Siin on küsimus lugejalt:
Kvartaliaruande esitluse osana juhtkonnale on mul sageli vaja kopeerida mitu üldteabe slaidi teistest esitlustest. Pole suur asi, kuid selle harjutuse automatiseerimine oleks märkimisväärne kokkuhoid. Igasugune VBA makro aitab seda saavutada!
Nagu just mainisite, saate slaidide kopeerimist ja kleepimist PowerPointis automatiseerida, kasutades Visual Basic for Applications. Kui teil on vaja iga kuu luua mitu esitlust, võib see slaidide kopeerimise / importimise automatiseerimine olla tohutu aja kokkuhoid!
PowerPoint VBA slaidide lisamiseks
Alustame selle lihtsa harjutusega.
Kõigepealt veenduge, et teie arenduskaart oleks lubatud ja nähtav. Siin on, kuidas seda teha .
Eeldan, et olete juba loonud makro toega esitluse (failitüüp on .pptm), mille olete paigutanud lähteesitlusega (mida ma nimetan lähtetekstiks.pptm) samasse kataloogi. Siit saate teada, kuidas VBA-ga PowerPointi esitlust luua .
Alustuseks teeme sellest esitlusest varukoopia (lihtne kopeerimine ja salvestamine).
Seejärel jätkakem ja sisestage järgmine makro teie sihtkoha esitluses uude VBA moodulisse. Kõik üksikasjad selle kohta, kuidas seda teha, leiate meie PowerPointi VBA õpetusest .
Siin on VBA-kood, mida vajate slaidide automaatseks kopeerimiseks ja kleepimiseks.
Paar oletust, mille tegin:
- Teie allikaesitlus kannab nime source.pptm
- Kleepite lähteesitlusest slaidid 2–4
- Asetate kopeeritud slaidid alustades 5. slaidiga.
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
Loomulikult muutke koodis slaidinumbrite indekseerimist, et need vastaksid teie vajadustele.
Saate panna selle läbima mitut esitlust ja sisestama igast konkreetsest slaidist oma juhtimisaruandesse.
PowerPoint VBA slaidide paljundamiseks
Slaidide teise esitlusse kopeerimise asemel võiksite oma esitlusse kloonida ühe või mitu slaidi.
Sub CopySlides()
' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly
ActivePresentation.Slides(3).Duplicate
End Sub
Need olid vaid paar lihtsat näidet PowerPointi automatiseerimisest. Lugejad, kes otsivad konkreetseid küsimusi, saatke päring julgelt kontaktide lehe kaudu.
Loodetavasti aitab 🙂