Hoe kopieer je dias toevoegen aan je PowerPoint-presentatie met VBA-macros?

Laatst bijgewerkt: juni 2020

Van toepassing op: Office 2019 en ouder. Alleen ramen.

Hier een vraag van een lezer:

Als onderdeel van mijn driemaandelijkse rapportpresentatie aan het management, moet ik vaak verschillende algemene informatiedia's uit andere presentaties kopiëren. Geen big deal, maar het zou een aanzienlijke besparing zijn om deze oefening te kunnen automatiseren. Elke VBA-macrohulp om dat te bereiken wordt op prijs gesteld!

Zoals u zojuist zei, kunt u het kopiëren en plakken van dia's in PowerPoint automatiseren met Visual Basic for Applications. Als u elke maand meerdere presentaties moet maken, kan deze automatisering van het kopiëren / importeren van dia's een enorme tijdbesparing opleveren!

PowerPoint VBA voor het toevoegen van dia's

Laten we beginnen met deze eenvoudige oefening.

Zorg er allereerst voor dat uw ontwikkeltabblad is ingeschakeld en zichtbaar is. Hier is hoe dat te doen .

Ik neem aan dat je al een presentatie met Macro hebt gemaakt (bestandstype is .pptm), die je in dezelfde map hebt geplaatst als je bronpresentatie (die ik source.pptm zal noemen). Hier leest u hoe u een PowerPoint-presentatie maakt met VBA .

Laten we eerst een back-up maken van die presentatie (eenvoudig kopiëren en opslaan).

Laten we dan doorgaan en de volgende macro invoegen in een nieuwe VBA-module in uw doelpresentatie. Alle details over hoe u dat kunt doen, vindt u in onze PowerPoint VBA-tutorial .

Hier is de VBA-code die je nodig hebt om de dia's automatisch te kopiëren en te plakken.

Paar aannames die ik heb gemaakt:

  • Uw bronpresentatie heet source.pptm
  •  U plakt dia's 2-4 uit uw bronpresentatie
  • U plaatst de gekopieerde dia's vanaf dia 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

Het staat u uiteraard vrij om de indexering van het dianummer in de code te wijzigen, zodat ze aan uw vereisten voldoen.

U kunt meerdere presentaties doorlopen en van elke presentatie specifieke dia's invoegen in uw managementrapport.

PowerPoint VBA voor het dupliceren van dia's

In plaats van dia's naar een andere presentatie te kopiëren, wilt u misschien een of meer dia's in uw presentatie klonen:

Sub CopySlides()

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

ActivePresentation.Slides(3).Duplicate

End Sub

Dat waren slechts een paar eenvoudige voorbeelden van PowerPoint-automatisering. Lezers die op zoek zijn naar specifieke vragen, stuur gerust een vraag via de contactpagina.

Hoop dat het helpt

Behoud de opmaak bij het kopiëren van dia's

Het probleem met het vorige voorbeeld was dat de oorspronkelijke themaopmaak van de presentatie niet werd gekopieerd. Stel dat de twee vellen een verschillende opmaak hadden, dan zou dit er gebeurd zijn:

voorbeeld 1

 

Sub main()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

Next i

objPresentation.Close

End Sub

Voordat u de code uitvoert
Dit is de presentatie met de dia die we willen kopiëren: Resultaat: Om dit probleem op te lossen, kunt u de onderstaande code gebruiken:
Dia's die moeten worden gekopieerd

Resultaat

 

Sub Example2()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

    Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Design = _

        objPresentation.Slides.Item(i).Design

Next i

objPresentation.Close

End Sub

Naast het kopiëren van de dia kopieert de bovenstaande code het ontwerp. Als u dit handmatig zou willen doen, kopieert u de slidemaster naar de nieuwe presentatie. U kunt de slidemaster niet kopiëren met VBA, maar in plaats daarvan kunt u de ontwerpeigenschap van de dia's instellen.

Leave a Comment

6 coole zoekmachines om naar gezichten te zoeken

6 coole zoekmachines om naar gezichten te zoeken

Soms wilt u misschien uw gezicht of dat van iemand anders op internet zoeken. Hier is een blik op zes zoekdiensten voor omgekeerde afbeeldingen die resultaten kunnen opleveren.

Werkt de Facebook Messenger-camera niet? Hier is een oplossing

Werkt de Facebook Messenger-camera niet? Hier is een oplossing

Als de Facebook Messenger-camera niet werkt, controleer dan de Messenger-status, installeer de app opnieuw of draai terug met een APK.

Hoe Gmail toe te voegen aan de taakbalk op Windows (SNELLE GIDS)

Hoe Gmail toe te voegen aan de taakbalk op Windows (SNELLE GIDS)

Ontdek hoe je Gmail kunt toevoegen aan de taakbalk op Windows 10 of Windows 11 met Chrome of Microsoft Edge. Volg onze eenvoudige gids.

Telefoon blijft continu rinkelen? Controleer deze oplossingen

Telefoon blijft continu rinkelen? Controleer deze oplossingen

Als uw telefoon continu blijft rinkelen, start u uw apparaat opnieuw op, controleert u de nabijheidssensor, reset u de app-voorkeuren of voert u de fabrieksinstellingen terug.

Speciale tekens typen op Windows 11

Speciale tekens typen op Windows 11

Leer hoe u speciale tekens kunt typen op Windows 11. Volg deze gids voor handige technieken om wiskundige symbolen, emoji

6 manieren om schijfbeheer te openen op Windows 11

6 manieren om schijfbeheer te openen op Windows 11

Ontdek 6 efficiënte manieren om Schijfbeheer te openen in Windows 11 voor het partitioneren van schijven en het wijzigen van stationsletters.

Websites vastzetten op de Windows-taakbalk vanuit Microsoft Edge

Websites vastzetten op de Windows-taakbalk vanuit Microsoft Edge

Leer hoe u websites kunt vastzetten op de Windows-taakbalk vanuit Microsoft Edge voor snelle toegang met één klik.

Snapchat Berichten bijwerken (Quick Fix)

Snapchat Berichten bijwerken (Quick Fix)

Als je de Snapchat-melding voor het bijwerken van berichten op je Android ontvangt, navigeer dan naar Instellingen> Apps> Snapchat> Meldingen en schakel deze uit.

Kun je geen screenshot maken vanwege het beveiligingsbeleid? Dit is waarom

Kun je geen screenshot maken vanwege het beveiligingsbeleid? Dit is waarom

Ontdek hoe je kunt omzeilen dat je geen screenshot kunt maken vanwege het beveiligingsbeleid in apps, en leer handige tips voor het maken van screenshots op Android en iOS.

8 oplossingen voor COD Modern Warfare gesplitst scherm werkt niet

8 oplossingen voor COD Modern Warfare gesplitst scherm werkt niet

Lees onze gids om oplossingen te vinden voor het probleem dat COD Modern Warfare gesplitst scherm niet werkt in multiplayer. Volg de gegeven oplossingen en verbeter uw spelervaring.