Kā izveidot un pievienot slaidus PowerPoint prezentācijām, izmantojot VBA?

Pirms pāris dienām kāds lasītājs jautāja par to, vai ir iespējams automatizēt PowerPoint prezentāciju izveidi no jauna un pēc tam ātri pievienot slaidus esošajai prezentācijai. Es domāju, ka šis skripts varētu būt ļoti noderīgāko PowerPoint makro sarakstā. 

Kā mēs norādījām iepriekš, PowerPoint neietver makro ierakstītāju (tas ir atšķirībā no Excel un Word, kuriem abiem ir iebūvēti makro ierakstītāji). Tāpēc mums ir atlicis vecais labais Visual Basic for Application, ko varam izmantot, lai izveidotu vienkāršus makro, lai automatizētu PowerPoint. Ir arī citas PowerPoint automatizācijas alternatīvas, taču tās pārsniedz šīs apmācības darbības jomu.

Šodienas īsajā apmācībā mēs apskatīsim trīs dažādus lietošanas gadījumus.

1. Jaunas prezentācijas izveide (tukša vai izmantojot veidni)
2. Pievienojiet slaidus esošai prezentācijai.
3. Divu iepriekš minēto gadījumu kombinācija (izveidot no jauna un pievienojot slaidus)

Sāksim.

Paskaties uz lenti. Ja izvēlnē neredzat ierakstu Izstrādātājs, pirms kodēšanas sākuma ir jāiespējo izstrādātāja cilne.

Kad esat padarījis Izstrādātāja izvēlni redzamu savā lentē, noklikšķiniet uz Izstrādātājs , pēc tam nospiediet Visual Basic pogu (vai vienkārši turpiniet un nospiediet Alt+F11), lai atvērtu Visual Basic IDE.

VBA, lai izveidotu PowerPoint prezentāciju

1. VB redaktorā ar peles labo pogu noklikšķiniet uz VBAProject un nospiediet Ievietot .
2. Izvēlieties Modulis .
3. Ielīmējiet šo kodu jaunizveidotajā modulī.

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

1. Noklikšķiniet uz Fails un pēc tam Saglabāt.
2. Lai palaistu kodu, noklikšķiniet uz Palaist un pēc tam izvēlieties Palaist apakš/lietotāja veidlapu (vai vienkārši F5).
3. Aizveriet VB redaktoru.

VBA, lai ievietotu slaidus

1. VB redaktorā ar peles labo pogu noklikšķiniet uz VBAProject un nospiediet Ievietot.
2. Izvēlieties Modulis
3. Ielīmējiet šo kodu jaunizveidotajā modulī.

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. Noklikšķiniet uz Fails un pēc tam Saglabāt.
2. Lai palaistu kodu, noklikšķiniet uz Palaist un pēc tam izvēlieties Palaist apakš/lietotāja veidlapu (vai vienkārši F5).
3. Aizveriet VB redaktoru.

Makro jaunas prezentācijas iestatīšanai un slaidu pievienošanai

Tas būtu tikai divu iepriekš aprakstīto fragmentu sajaukšana.

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

Pēc tam varat skatīt mūsu pamācību par programmētu formu izveidi programmā PowerPoint, izmantojot VBA

Ģenerējiet PowerPoint prezentāciju no Excel

Pēdējais gadījums ir tāds, ka vēlaties izveidot PowerPoint prezentāciju tieši no Excel izklājlapas. Varat izmantot to pašu paņēmienu no Word un citām Microsoft 365 lietojumprogrammām.

• Saistiet izklājlapu ar PowerPoint datu modeli (no Rīki>>Atsauces)
• Ievietojiet pogu savā Excel izklājlapā (Izstrādātājs >> Ievietot un pēc tam izvēlieties komandu pogu).
• Ievietojiet tālāk norādīto VBA kodu savā izklājlapas VBA projektā (tieši izklājlapā vai VBA modulī)
• Modificējiet skriptu pēc vajadzības.
• Palaist (nospiediet F5) un pārbaudiet rezultātu.

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

Izbaudi 🙂