Kaip sukurti ir pridėti skaidres prie PowerPoint pristatymų naudojant VBA?

Prieš porą dienų skaitytojas paklausė, ar yra būdas automatizuoti PowerPoint pristatymų kūrimą nuo nulio ir greitai pridėti skaidres prie esamos pateikties. Manau, kad šis scenarijus gali būti naudingiausių „PowerPoint“ makrokomandų sąraše. 

Kaip minėjome anksčiau, „PowerPoint“ neapima makrokomandų įrašymo priemonės (tai skiriasi nuo „Excel“ ir „Word“, kurios abi turi integruotus makrokomandų įrašymo įrenginius). Todėl mums liko sena gera „Visual Basic for Application“, kurią galime naudoti kurdami paprastas makrokomandas, skirtas automatizuoti „PowerPoint“. Yra ir kitų „PowerPoint Automation“ alternatyvų, tačiau jos nepatenka į šio vadovo taikymo sritį.

Šiandienos trumpoje mokymo programoje apžvelgsime tris skirtingus naudojimo atvejus:

1. Naujo pristatymo kūrimas (tuščias arba naudojant šabloną)
2. Pridėkite skaidres prie esamo pristatymo.
3. Dviejų aukščiau paminėtų atvejų derinys (kurti nuo nulio ir pridėti skaidres)

Pradėkime.

Pažiūrėkite į juostelę. Jei meniu nematote Kūrėjo įrašo, prieš pradėdami kodavimą turėsite įgalinti kūrėjo skirtuką.

Padarę kūrėjo meniu matomą juostoje, eikite į priekį ir paspauskite Kūrėjas , tada paspauskite mygtuką Visual Basic (arba tiesiog eikite į priekį ir paspauskite Alt + F11), kad atidarytumėte Visual Basic IDE.

VBA PowerPoint pristatymui sukurti

1. VB redaktoriuje dešiniuoju pelės mygtuku spustelėkite VBAProject ir paspauskite Įterpti .
2. Pasirinkite Modulis .
3. Įklijuokite šį kodą naujai kuriamame modulyje.

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

1. Spustelėkite Failas, tada Išsaugoti.
2. Norėdami paleisti kodą, paspauskite Vykdyti, tada pasirinkite Vykdyti antrinę / vartotojo formą (arba tiesiog F5).
3. Uždarykite VB redaktorių.

VBA skaidrėms įterpti

1. VB redaktoriuje dešiniuoju pelės mygtuku spustelėkite VBAProject ir paspauskite Įterpti.
2. Pasirinkite Modulis
3. Įklijuokite šį kodą naujai kuriamame modulyje.

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. Spustelėkite Failas, tada Išsaugoti.
2. Norėdami paleisti kodą, paspauskite Vykdyti, tada pasirinkite Vykdyti antrinę / vartotojo formą (arba tiesiog F5).
3. Uždarykite VB redaktorių.

Makrokomandas naujam pristatymui nustatyti ir skaidrėms pridėti

Tai būtų tik dviejų pirmiau nurodytų fragmentų sumaišymas.

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

Tada galite peržvelgti mūsų mokymo programą, kaip programiškai kurti formas PowerPoint naudojant VBA

Sukurkite „PowerPoint“ pristatymą iš „Excel“.

Paskutinis atvejis yra tas, kad norėtumėte sukurti „PowerPoint“ pristatymą tiesiai iš „Excel“ skaičiuoklės. Tą pačią techniką galite naudoti iš „Word“ ir kitų „Microsoft 365“ programų.

• Skaičiuoklės susiejimas su PowerPoint duomenų modeliu (iš Įrankiai>>Nuorodos)
• Įterpkite mygtuką į „Excel“ skaičiuoklę (Kūrėjas >> Įterpti ir pasirinkite komandų mygtuką).
• Įdėkite toliau pateiktą VBA kodą į savo skaičiuoklės VBA projektą (tiesiogiai į lapą arba į VBA modulį)
• Jei reikia, pakeiskite scenarijų.
• Paleiskite (paspauskite F5) ir patikrinkite rezultatą.

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

Mėgaukitės 🙂