Kuinka kopioida lisädioja PowerPoint-esitykseen VBA-makroilla?

Viimeksi päivitetty: kesäkuussa 2020

Koskee: Office 2019 ja vanhempia. Vain Windows.

Tässä kysymys lukijalta:

Osana neljännesvuosittaista raporttiesitystäni johdolle joudun usein kopioimaan useita yleistietoja dioja muista esityksistä. Ei iso juttu, mutta tämän harjoituksen automatisointi olisi merkittävä säästö. Kaikki VBA-makrot auttavat tämän saavuttamisessa!

Kuten juuri mainitsit, voit automatisoida diojen kopioinnin ja liittämisen PowerPointissa Visual Basic for Applications -sovelluksella. Jos sinun on luotava useita esityksiä kuukaudessa, tästä diakopiointi-/tuontiautomaatiosta voi tulla valtava ajansäästö!

PowerPoint VBA diojen lisäämiseen

Aloitetaan tällä yksinkertaisella harjoituksella.

Varmista ensin, että kehitysvälilehti on käytössä ja näkyvissä. Näin teet sen .

Oletan, että olet jo luonut makroa käyttävän esityksen (tiedostotyyppi on .pptm), jonka olet sijoittanut samaan hakemistoon kuin lähdeesitys (jota kutsun nimellä source.pptm). Näin voit luoda PowerPoint-esityksen VBA:lla .

Otetaan ensin varmuuskopio esityksestä (yksinkertainen kopiointi ja tallennus).

Sitten mennään eteenpäin ja lisätään seuraava makro uuteen VBA-moduuliin kohdeesitykseesi. Kaikki tiedot sen tekemisestä löytyvät PowerPoint VBA -opetusohjelmastamme .

Tässä on VBA-koodi, jota tarvitset, jotta voit kopioida ja liittää dioja automaattisesti.

Tein pari oletusta:

• Lähdeesityksen nimi on source.pptm
•  Liität lähdeesityksen diat 2–4
• Kopioidut diat asetetaan diasta 5 alkaen.

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

Tietysti voit vapaasti muuttaa dian numeroiden indeksointia koodissa, jotta ne sopivat tarpeisiisi.

Pystyt käymään läpi useita esityksiä ja lisäämään jokaisesta tietyt diat hallintoraporttiisi.

PowerPoint VBA diojen monistamiseen

Sen sijaan, että kopioit dioja toiseen esitykseen, saatat haluta kloonata yhden tai useamman dian esitykseen:

Sub CopySlides()

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

ActivePresentation.Slides(3).Duplicate

End Sub

Nämä olivat vain pari yksinkertaista esimerkkiä PowerPoint-automaatiosta. Tarkkoja kysymyksiä etsivät lukijat voit lähettää kyselyn Yhteystiedot-sivun kautta.

Toivottavasti se auttaa 🙂