Kuinka luoda ja lisätä dioja PowerPoint-esityksiin VBA:lla?

Muutama päivä sitten eräs lukija kysyi, onko olemassa tapa automatisoida PowerPoint-esitysten luominen tyhjästä ja lisätä sitten dioja nopeasti olemassa olevaan esitykseen. Luulin, että komentosarja saattaa olla erittäin hyödyllisimpien PowerPoint-makrojen luettelossa. 

Kuten aiemmin totesimme, PowerPoint ei sisällä makrotalleninta (toisin kuin Excelissä ja Wordissa, joissa molemmissa on sisäänrakennetut makrotallentimet). Siksi meille jää vanha kunnon Visual Basic for Application, jonka avulla voimme luoda yksinkertaisia ​​makroja PowerPointin automatisoimiseksi. PowerPoint Automationille on muitakin vaihtoehtoja, mutta ne eivät kuulu tämän opetusohjelman soveltamisalaan.

Tämän päivän lyhyessä opetusohjelmassa käymme läpi kolme eri käyttötapausta:

1. Uuden esityksen luominen (tyhjä tai mallipohjainen)
2. Lisää dioja olemassa olevaan esitykseen.
3. Sekoitus kahdesta yllä mainitusta tapauksesta (luo tyhjästä ja lisää dioja)

Aloitetaan.

Katso Nauhaa. Jos et näe valikossa Kehittäjä-kohtaa, sinun on otettava kehittäjä-välilehti käyttöön ennen koodauksen aloittamista.

Kun olet tehnyt Kehittäjä-valikon näkyväksi valintanauhassasi, paina Kehittäjä ja paina sitten Visual Basic -painiketta (tai siirry eteenpäin ja paina Alt+F11) avataksesi Visual Basic IDE:n.

VBA PowerPoint-esityksen luomiseen

1. Napsauta VB-editorissa hiiren kakkospainikkeella VBAProjectia ja napsauta Lisää .
2. Valitse Moduuli .
3. Liitä seuraava koodi uuteen luotuun moduuliin.

Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub

1. Napsauta Tiedosto ja sitten Tallenna.
2. Suorita koodi painamalla Suorita ja valitse sitten Suorita ali-/käyttäjälomake (tai yksinkertaisesti F5).
3. Sulje VB-editori.

VBA diojen lisäämiseen

1. Napsauta VB-editorissa hiiren kakkospainikkeella VBAProjectia ja napsauta Lisää.
2. Valitse Moduuli
3. Liitä seuraava koodi uuteen luotuun moduuliin.

Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub

1. Napsauta Tiedosto ja sitten Tallenna.
2. Suorita koodi painamalla Suorita ja valitse sitten Suorita ali-/käyttäjälomake (tai yksinkertaisesti F5).
3. Sulje VB-editori.

Makro, jolla voit määrittää uuden esityksen ja lisätä dioja

Se olisi vain kahden yllä kuvatun katkelman sekoittamista.

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

Seuraavaksi voit tutustua opetusohjelmaamme muotojen ohjelmallisesta luomisesta PowerPointissa VBA:n avulla

Luo PowerPoint-esitys Excelistä

Viimeinen tapaus on, että haluat luoda PowerPoint-esityksen suoraan Excel-laskentataulukosta. Voit käyttää samaa tekniikkaa Wordista ja muista Microsoft 365 -sovelluksista.

• Linkitä laskentataulukko PowerPoint-tietomalliin (kohdasta Työkalut>>Viitteet)
• Lisää painike Excel-laskentataulukkoon (Kehittäjä >> Lisää ja valitse sitten komentopainike).
• Lisää alla oleva VBA-koodi Spreadsheet VBA -projektiisi (suoraan taulukkoon tai VBA-moduuliin)
• Muokkaa skriptiä tarpeen mukaan.
• Juokse (paina F5) ja testaa tulos.

Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

Nauti 🙂