Hvernig á að búa til og bæta skyggnum við PowerPoint kynningar með VBA?

Fyrir nokkrum dögum spurði lesandi um að það væri leið til að gera PowerPoint kynningar sjálfvirkan frá grunni og bæta síðan glærum við þá kynningu sem fyrir er. Ég hélt að það handrit gæti verið mjög á listanum yfir gagnlegustu PowerPoint fjölvi. 

Eins og við bentum á áður, inniheldur PowerPoint ekki Macro Recorder (það er ólíkt Excel og Word, sem bæði hafa innbyggða upptökutæki fyrir Macro). Þess vegna sitjum við eftir með gamla góða Visual Basic for Application sem við getum notað til að búa til einföld fjölvi til að gera PowerPoint sjálfvirkan. Það eru fleiri valkostir fyrir PowerPoint sjálfvirkni, en þeir fara út fyrir svið þessarar kennslu.

Í stuttu kennsluefni dagsins munum við fara yfir þrjú mismunandi notkunartilvik:

1. Ný kynningargerð (autt eða með sniðmáti)
2. Bættu glærum við núverandi kynningu.
3. Blanda af tveimur ofangreindum tilfellum (Búa til frá grunni og bæta við skyggnum)

Byrjum.

Horfðu á borðann. Ef þú sérð ekki þróunarfærsluna í valmyndinni þarftu að virkja þróunarflipann áður en þú byrjar að kóða.

Eftir að þú hefur gert þróunarvalmyndina sýnilega borðann þinn skaltu halda áfram og ýta á Developer , ýta síðan á Visual Basic hnappinn (eða einfaldlega fara á undan og ýta á Alt+F11) til að opna Visual Basic IDE.

VBA til að búa til PowerPoint kynningu

1. Í VB Editor, hægrismelltu á VBAProject og ýttu á Insert .
2. Veldu Module .
3. Límdu eftirfarandi kóða í nýbúna eininguna.

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

1. Smelltu á File og síðan Vista.
2. Til að keyra kóðann þinn, ýttu á Run og veldu síðan Run Sub/User Form (eða einfaldlega F5).
3. Lokaðu VB ritlinum.

VBA til að setja inn glærur

1. Í VB Editor, hægrismelltu á VBAProject og ýttu á Insert.
2. Veldu Module
3. Límdu eftirfarandi kóða í nýbúna eininguna.

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. Smelltu á File og síðan Vista.
2. Til að keyra kóðann þinn, ýttu á Run og veldu síðan Run Sub/User Form (eða einfaldlega F5).
3. Lokaðu VB ritlinum.

Fjölvi til að setja upp nýja kynningu og bæta við glærum

Það væri bara að blanda saman þessum tveimur brotum sem lýst er hér að ofan.

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

Næst gætirðu skoðað kennsluna okkar um að búa til form forritað í PowerPoint með VBA

Búðu til PowerPoint kynningu úr Excel

Síðasta tilvikið er að þú vilt búa til PowerPoint kynningu beint úr Excel töflureikni. Þú getur notað sömu tækni frá Word og öðrum Microsoft 365 forritum.

• Tengdu töflureiknið við PowerPoint gagnalíkanið (frá Verkfærum >> Tilvísanir)
• Settu hnapp inn í Excel töflureikninn þinn (hönnuður >> Settu inn og veldu síðan stjórnhnapp).
• Settu VBA kóðann hér að neðan inn í töflureikni VBA verkefnið þitt (beint í blaðið eða í VBA mát)
• Breyttu handritinu eftir þörfum.
• Hlaupa (smelltu á F5) og prófaðu útkomuna.

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

Njóttu 🙂