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:
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
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
|
|
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:
|
|
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.
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.
Als de Facebook Messenger-camera niet werkt, controleer dan de Messenger-status, installeer de app opnieuw of draai terug met een APK.
Ontdek hoe je Gmail kunt toevoegen aan de taakbalk op Windows 10 of Windows 11 met Chrome of Microsoft Edge. Volg onze eenvoudige gids.
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.
Leer hoe u speciale tekens kunt typen op Windows 11. Volg deze gids voor handige technieken om wiskundige symbolen, emoji
Ontdek 6 efficiënte manieren om Schijfbeheer te openen in Windows 11 voor het partitioneren van schijven en het wijzigen van stationsletters.
Leer hoe u websites kunt vastzetten op de Windows-taakbalk vanuit Microsoft Edge voor snelle toegang met één klik.
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.
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.
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.
