Senast uppdaterad: juni 2020
Gäller: Office 2019 och äldre. Endast Windows.
Här är en fråga från en läsare:
Som en del av min kvartalsrapportpresentation för ledningen behöver jag ofta kopiera flera allmänna informationsbilder från andra presentationer. Ingen stor sak, men det skulle vara en betydande besparing att kunna automatisera denna övning. Alla VBA-makrohjälp för att åstadkomma det uppskattas!
Som du just nämnde kan du automatisera bilderna kopiera och klistra in i PowerPoint med Visual Basic for Applications. Om du behöver skapa flera presentationer varje månad kan denna automatisering av kopiering/import av bilder bli en enorm tidsbesparing!
PowerPoint VBA för att lägga till bilder
Låt oss komma igång med denna enkla övning.
Först och främst, se till att din utvecklingsflik är aktiverad och synlig. Så här gör du det .
Jag antar att du redan har skapat en makroaktiverad presentation (filtypen är .pptm), som du har placerat i samma katalog som din källpresentation (som jag kommer att referera till som source.pptm). Så här skapar du en PowerPoint-presentation med VBA .
Först och främst, låt oss ta en säkerhetskopia av den presentationen (enkel kopiera och spara).
Låt oss sedan gå vidare och infoga följande makro i en ny VBA-modul i din destinationspresentation. All information om hur du gör det finns i vår PowerPoint VBA-handledning .
Här är VBA-koden som du behöver för att automatiskt kopiera och klistra in bilderna.
Ett par antaganden jag 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
Uppenbarligen är du välkommen att ändra bildnummerindexeringen i koden så att de passar dina krav.
Du kan få det att gå igenom flera presentationer och infoga specifika bilder från var och en i din förvaltningsrapport.
PowerPoint VBA för duplicering av bilder
Istället för att kopiera bilder till en annan presentation kanske du vill klona en eller flera bilder i din presentation:
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 bara ett par enkla exempel på PowerPoint-automatisering. Läsare som söker specifika frågor, skicka gärna en förfrågan via kontaktsidan.
Hoppas det hjälper 🙂
Problemet med det föregående exemplet var att originalpresentationstemaformateringen inte kopierades över. Anta att de två arken hade olika formatering, detta är vad som skulle ha hänt:
Exempel 1
|
|
Detta är presentationen med bilden vi vill kopiera:
Resultat:
För att lösa problemet kan du använda koden nedan:
|
|
Förutom att kopiera bilden kopierar koden ovan designen. Om du ville göra detta manuellt skulle du kopiera slidemastern till den nya presentationen. Du kan inte kopiera slidemastern med VBA utan istället kan du ställa in designegenskapen för bilderna.
Skapa en tydlig årsredovisning för ideella organisationer i PowerPoint med en gratis mall, praktisk bildstruktur, effektmått, ekonomi och presentationstips som är redo för givare.
Skapa en PowerPoint-presentation för investerare i cleantech-startups med praktisk bildstruktur, evidensfokuserat budskap, tillgänglig design och färre distraktioner.
Använd den här enkla mallen för uppgiftsdelegeringsmatris i Word för att tilldela ägare, beslutsgränser, deadlines och kontrollpunkter utan att komplicera ett litet team alltför mycket.
Använd detta enkla utskrivbara närvaroblad för dagis för hemomsorg, med barnens namn, ankomst-/avgångstider, underskrifter och tips om efterlevnad.
Använd den här utskrivbara mallen för marknadsföringsstrategi på en sida för att definiera din lokala målgrupp, erbjudande, kanaler, budget, veckovisa åtgärder och mätbara mål.
Stoppa Excel från att konvertera värden som 1/2, 11-53 eller JAN1 till datum. Lär dig pålitliga lösningar för inmatning, inklistring, CSV-import och redan konverterade celler.
Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.
Åtgärda Outlook när du kan ta emot e-post men inte skicka. Kontrollera Utkorg, offlineläge, inloggning, SMTP-inställningar, profiler och ändringar i Microsoft 365.
Bygg en enkel biweekly lönespårare i Excel för ett litet team, med timmar, lön, avdrag, granskningsflaggor, sammanfattningar och vägledning för dokumentation.
Skapa eller anpassa en utskrivbar checklista och budgetmall för evenemangsplanering i Microsoft Word, med praktiska avsnitt, avvägningar och tips för Word kontra Excel.
