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:
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 🙂
Edellisen esimerkin ongelmana oli, että alkuperäisen esityksen teemamuotoilua ei kopioitu. Oletetaan, että kahdella arkilla oli eri muotoilu, tämä olisi tapahtunut:
Esimerkki 1
|
|
Tämä esitys dialla, jonka haluamme kopioida:
Tulos:
Tämän ongelman voittamiseksi voit käyttää alla olevaa koodia:
|
|
Sen lisäksi, että kopioit dian, yllä oleva koodi kopioi mallin. Jos haluat tehdä tämän manuaalisesti, kopioi diamasterin uuteen esitykseen. Et voi kopioida diamasteria VBA:lla, mutta sen sijaan voit asettaa diojen suunnitteluominaisuuden.
Luo selkeä voittoa tavoittelemattoman organisaation vuosikertomus PowerPointissa ilmaisen mallin, käytännöllisen diarakenteen, vaikuttavuusmittareiden, taloustietojen ja lahjoittajille tarkoitettujen esitysvinkkien avulla.
Rakenna clean tech -alan startup-sijoittajan pitch-deck PowerPointilla käytännöllisellä diarakenteella, näyttöön perustuvalla viestinnällä, saavutettavalla suunnittelulla ja vähemmillä häiriötekijöillä.
Käytä tätä yksinkertaista tehtävien delegointimatriisimallia Wordissa omistajien, päätösrajojen, määräaikojen ja tarkistuspisteiden määrittämiseen ilman, että pienen tiimin työstä tulee liian monimutkaista.
Käytä tätä yksinkertaista tulostettavaa päivähoidon läsnäololomaketta kotihoitoon. Lomakkeeseen tulee lasten nimet, saapumis- ja lähtöajat, allekirjoitukset ja vinkkejä sääntöjen noudattamiseen.
Käytä tätä tulostettavaa yksisivuista markkinointistrategiapohjaa määrittääksesi paikallisen yleisösi, tarjonnan, kanavat, budjetin, viikoittaiset toimenpiteet ja mitattavissa olevat tavoitteet.
Estä Exceliä muuntamasta arvoja, kuten 1/2, 11-53 tai JAN1, päivämääriksi. Opi luotettavia korjauksia kirjoittamiseen, liittämiseen, CSV-tuontiin ja jo muunnettujen solujen käyttöön.
Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.
Korjaa Outlook, kun sähköpostia voi vastaanottaa mutta ei lähettää. Tarkista Lähtevät, offline-tila, kirjautuminen, SMTP-asetukset, profiilit ja Microsoft 365 -muutokset.
Rakenna yksinkertainen kahden viikon välein tapahtuva palkanmaksuseurantamalli Exceliin pienelle tiimille, mukaan lukien tunnit, palkat, vähennykset, tarkistusliput, yhteenvedot ja kirjanpito-ohjeet.
Luo tai mukauta tulostettava tapahtumasuunnittelun tarkistuslista ja budjettimalli Microsoft Wordissa, joka sisältää käytännön osioita, kompromisseja ja vinkkejä Wordin ja Excelin vertailuun.
