Sidst opdateret: juni 2020
Gælder for: Office 2019 og ældre. Kun Windows.
Her er et spørgsmål fra en læser:
Som en del af min kvartalsrapportpræsentation til ledelsen skal jeg ofte kopiere flere generelle informationsdias fra andre præsentationer. Ikke en big deal, men det ville være en betydelig besparelse at kunne automatisere denne øvelse. Enhver VBA-makrohjælp til at opnå det er værdsat!
Som du lige nævnte, kan du automatisere diasene kopiere og indsætte i PowerPoint ved hjælp af Visual Basic for Applications. Hvis du har brug for at oprette flere præsentationer hver måned, kan denne diaskopiering/importautomatisering blive en enorm tidsbesparelse!
PowerPoint VBA til tilføjelse af dias
Lad os komme i gang med denne enkle øvelse.
Først og fremmest skal du sikre dig, at din udviklingsfane er aktiveret og synlig. Sådan gør du det .
Jeg antager, at du allerede har oprettet en makroaktiveret præsentation (filtypen er .pptm), som du har placeret i den samme mappe som din kildepræsentation (som jeg vil referere til som source.pptm). Sådan opretter du en PowerPoint-præsentation med VBA .
Først og fremmest, lad os tage en sikkerhedskopi af den præsentation (simpel kopiering og gem).
Så lad os gå videre og indsætte følgende makro i et nyt VBA-modul i din destinationspræsentation. Alle detaljer om, hvordan du gør det, kan findes i vores PowerPoint VBA tutorial .
Her er den VBA-kode, du skal bruge for automatisk at kopiere og indsætte diasene.
Et par antagelser jeg gjorde:
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
Du er naturligvis velkommen til at ændre diasnummerindekseringen i koden, så de passer til dine krav.
Du er i stand til at få det til at gå gennem flere præsentationer og indsætte specifikke dias fra hver i din ledelsesrapport.
PowerPoint VBA til duplikering af dias
I stedet for at kopiere dias til en anden præsentation, vil du måske klone et eller flere dias i din præsentation:
Sub CopySlides()
' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly
ActivePresentation.Slides(3).Duplicate
End Sub
Det var blot et par simple eksempler på PowerPoint-automatisering. Læsere, der søger specifikke spørgsmål, er velkommen til at sende en forespørgsel via kontaktsiden.
Håber det hjælper 🙂
Problemet med det forrige eksempel var, at originale præsentationers temaformatering ikke blev kopieret over. Antag, at de 2 ark havde forskellig formatering, dette er, hvad der ville være sket:
Eksempel 1
|
|
Dette er præsentationen med det dias, vi ønsker at kopiere:
Resultat:
For at løse dette problem kan du bruge koden nedenfor:
|
|
Udover at kopiere sliden, kopierer koden ovenfor designet. Hvis du ville gøre dette manuelt, ville du kopiere slidemasteren over til den nye præsentation. Du kan ikke kopiere slidemasteren ved hjælp af VBA, men i stedet kan du indstille designegenskaben for slides.
Lav en klar årsrapport for nonprofitorganisationer i PowerPoint med en gratis skabelon, praktisk slidestruktur, effektmålinger, økonomiske oplysninger og præsentationstips klar til donorer.
Byg en pitch deck for investorer i clean tech-startups i PowerPoint med praktisk slidestruktur, evidensorienteret budskaber, tilgængeligt design og færre distraktioner.
Brug denne enkle skabelon til opgavedelegeringsmatrix i Word til at tildele ejere, beslutningsgrænser, deadlines og kontrolpunkter uden at komplicere et lille team for meget.
Use this simple printable daycare attendance sheet for home childcare, with child names, arrival/departure times, signatures, and compliance tips.
Brug denne skabelon til en marketingstrategi på én side, der kan udskrives, til at definere din lokale målgruppe, dit tilbud, dine kanaler, dit budget, dine ugentlige handlinger og dine målbare mål.
Stop Excel i at konvertere værdier som 1/2, 11-53 eller JAN1 til datoer. Lær pålidelige løsninger til indtastning, indsættelse, CSV-import og allerede konverterede celler.
Lav en elegant PowerPoint-opslagsliste til ejendomme gratis med en praktisk slideplan, foto, branding, tilgængelighed, overholdelse af regler og eksporttips.
Løs Outlook-problemer, hvor du kan modtage e-mail, men ikke sende. Tjek Udbakken, offline-tilstand, login, SMTP-indstillinger, profiler og ændringer i Microsoft 365.
Byg en enkel to-ugers løntracker i Excel til et lille team, med timer, løn, fradrag, review-flag, opsummeringer og vejledning i dokumentation.
Byg eller tilpas en printbar tjekliste og budgetskabelon til eventplanlægning i Microsoft Word med praktiske afsnit, afvejninger og tips til Word vs. Excel.
