VBA PowerPoint - Izradite PowerPoint prezentaciju iz Excela pomoću VBA

Sadržaj:

Anonim

Excel VBA PowerPoint Vodič

VBA je moćan alat koji se može koristiti u bilo kojem području Microsoftovih integriranih alata. Poput MS Excel-a, Powerpoint također ima odredbu za stvaranje makronaredbe i automatizaciju prezentacije. Automatizacija može biti bilo kojeg oblika. Vidjeli ste prezentacije u kojima su dijapozitivi toliko veliki i detaljni, da ponekad završe s 50 i više dijapozitiva samo da pokriju temu obuke ili izvještaj. Dakle, umjesto dodavanja grafikona u programu PowerPoint iz Excela, možemo stvoriti kôd koji će izravno kopirati grafikone iz Excela i zalijepiti ih na PowerPoint slajd.

Kako iz Excel VBA stvoriti PowerPoint prezentaciju?

Ispod je primjer stvaranja Powerpoint prezentacije pomoću VBA koda u Excelu:

Možete preuzeti ovaj VBA PowerPoint Excel predložak ovdje - VBA PowerPoint Excel predložak

Primjer VBA PowerPointa

Napravimo prvo grafikon u excelu. Za to su nam potrebni podaci. Ispod imamo nekoliko podataka o prodaji od 8 prodajnih mjesta.

Sada ćemo stvoriti grafikon ili grafikon stupca uz pomoć gornjih podataka. Vidjet ćemo u nastavku, sada imamo tablicu stupaca s naslovom Količina prodana i umetnute sve naljepnice.

Naš je zadatak da se ovaj grafikon stavi na PowerPoint slajd kao što je ovdje prikazano, s naslovom grafikona kao naslovom PowerPoint dijapozitiva. Za to moramo omogućiti PowerPoint u VBA.

Slijedite dolje navedene korake:

Korak 1: Idite na izbornik VBA alata kao što je prikazano u nastavku i odaberite opciju Reference … kao što je prikazano u nastavku.

Korak 2: Jednom kada to učinimo, dobit ćemo prozore Reference VBA projekta. S tog popisa odaberite MS PowerPoint 15.0 Biblioteka objekata kao što je prikazano u nastavku. To će aktivirati sve naredbe vezane za MS PowerPoint u VBA. Bez toga ne možemo pokrenuti VBA u PowerPointu. Označite okvir spomenute Knjižnice i kliknite na U redu .

Korak 3: Sada za pisanje koda za VBA PowerPoint, potreban nam je modul. Da biste dobili novi modul, idite na izbornik Umetanje i odaberite opciju Modula kao što je prikazano u nastavku.

Korak 4: U taj modul napišite podkategoriju VBA PowerPoint ili u bilo koje drugo ime prema vašim potrebama kao što je prikazano u nastavku.

Kodirati:

 Sub VBA_Presentation () Kraj Sub

Korak 5: Sada za stvaranje prezentacije uz pomoć grafikona u excelu treba nam nekoliko varijabli. Razmotrimo 5 varijabli kao:

  1. Aplikacija za PowerPoint aplikaciju.
  2. PPT za PowerPoint prezentaciju,
  3. PPTSlide za PowerPoint Slide,
  4. PPTS obrasci za PowerPoints,
  5. PPTCpojave za objekt Excel Chart.

Kodirati:

 Pod VBA_Presentation () Dim PAplication Kao PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim DimTCTCts kao Excel.ChartObject End Sub

Korak 6: Sada upotrijebite naredbu Set da biste dodali New PowerPoint aplikaciju kao što je prikazano u nastavku.

Kodirati:

 Pod VBA_Presentation () Dim PAplication kao PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim DimTCTCts kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application End Sub

Korak 7: U retku koda učinite PowerPoint Application vidljivim i koristite msoCTrue za misteriozno ocjenjivanje pogrešnog načina. I nakon toga, isti će program biti korišten kao Maksimiziran u PowerPointu kako bi se dobio cjelovit prikaz.

Kodirati:

 Pod VBA_Presentation () Dim PAplication As PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim PPTC se pokreće kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application PAplication.VisibleSpplication.VisibleSplikaSuploadStation ppWindowMaksimizirani krajnji sub

Korak 8: Sada postavite PPT koji je naša prezentacija za dodavanje u MS PowerPoint aplikaciji,

Kodirati:

 Pod VBA_Presentation () Dim PAplication As PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim PPTC se pokreće kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application PAplication.VisibleSpplication.VisibleSplikaSuploadStation ppWindowMaksimizirani skup PPT = PAplication.Presentations.Add End Sub

Korak 9: Sada ćemo koristiti kombinaciju petlje For-Next i If-Else. Počevši s petljom For-Next.

Kodirati:

 Pod VBA_Presentation () Dim PAplication As PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim PPTC se pokreće kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application PAplication.VisibleSpplication.VisibleSplikaSuploadStation ppWindowMaksimizirani skup PPT = PAplication.Presentations.Add za sljedeći kraj Sub

Korak 10: U okviru petlje PPTCharts, prvi aktivni grafikoni u excelu.

Kodirati:

 Pod VBA_Presentation () Dim PAplication As PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim PPTC se pokreće kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application PAplication.VisibleSpplication.VisibleSplikaSuploadStation ppWindowMaksimizirani skup PPT = PAplication.Presentations.Add za svaki PPTCharts u ActiveSheet.ChartObjects Sljedeći PPTCharts Kraj Sub

11. korak: Ispod je kôd za lijepljenje grafikona iz excela u PowerPoint slajd. Upotrijebite kôd za dodavanje slajda u definiranu PAplication dodajući +1 slajd svaki put kada pokrenemo kôd.

Kodirati:

 Pod VBA_Presentation () Dim PAplication As PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim PPTC se pokreće kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application PAplication.VisibleSpplication.VisibleSplikaSuploadStation ppWindowMaksimizirani skup PPT = PAplication.Presentations.Add za svaki PPTCharts u ActiveSheet.ChartObjects PAplication.ActivePresentation.Slides.Add PAplication.ActivePresentation.Slides.Count + 1, ppLayoutText Next PPTCharts Kraj Sub

12. korak: Sada za nastavak na sljedeći redak koda koristite niži skup koda da biste postavili aktivni prikaz prozora. Ovo će koristiti za pomicanje nakon što se Chart zalijepi u PowerPoint prezentaciji.

Kodirati:

 Pod VBA_Presentation () Dim PAplication As PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim PPTC se pokreće kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application PAplication.VisibleSpplication.VisibleSplikaSuploadStation ppWindowMaksimizirani skup PPT = PAplication.Presentations.Add za svaki PPTCharts u ActiveSheet.ChartObjects PAplication.ActivePresentation.Slides.Add PAplication.ActivePresentation.Slides.Count + 1, ppLayoutText PAplication.ActiveWindow.Veli.Slide.Ge.Stv.Slide.Ge.Stv.Stv. = PAplication.ActivePresentation.Slides (PAplication.ActivePresentation.Slides.Count) Sljedeći PPTCharts Kraj Sub

Korak 13: Nakon završetka, odaberite varijablu PPTChart koju smo prethodno definirali. Nakon toga kopirajte odabrani aktivni grafikon u područje grafikona gdje će biti postavljeno. I pomoću naredbe Zalijepi specijalno zalijepite grafikon sa slikama.

Kodirati:

 Pod VBA_Presentation () Dim PAplication As PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim PPTC se pokreće kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application PAplication.VisibleSpplication.VisibleSplikaSuploadStation ppWindowMaksimizirani skup PPT = PAplication.Presentations.Add za svaki PPTCharts u ActiveSheet.ChartObjects PAplication.ActivePresentation.Slides.Add PAplication.ActivePresentation.Slides.Count + 1, ppLayoutText PAplication.ActiveWindow.Veli.Slide.Ge.Stv.Slide.Ge.Stv.Stv. = PAplication.ActivePresentation.Slides (PAplication.ActivePresentation.Slides.Count) PPTCharts.Select ActiveChart.ChartArea.Copy PPTSlide.Shapes.PasteSpecial (DataType: = ppPasteMetafilePicture) .Izaberite Sljedeći PPTCharts

Korak 14: Sada odaberite oblik grafikona koji je na prvoj poziciji kao raspon teksta. I nosite isti naslov koji je " Količina prodana " u PowerPoint prezentaciji.

Kodirati:

 Pod VBA_Presentation () Dim PAplication Kao PowerPoint.Application Dim PPT kao PowerPoint.Presentation Dim PPTSlide kao PowerPoint.Slide Dim PPTS oblikuje kao PowerPoint.Shape Dim PPTC se pokreće kao Excel.ChartObject Set PAplication = Novi PowerPoint.Application PAplication.VisibleSplikaSplikatiVisibleSuploadSuploadStation ppWindowMaksimizirani skup PPT = PAplication.Presentations.Add za svaki PPTCharts u ActiveSheet.ChartObjects PAplication.ActivePresentation.Slides.Add PAplication.ActivePresentation.Slides.Count + 1, ppLayoutText PAplication.ActiveWindow.Veli.Slide.Ge.Stv.Slide.Ge.Stv.Stv. = PAplication.ActivePresentation.Slides (PAplication.ActivePresentation.Slides.Count) PPTCharts.Select ActiveChart.ChartArea.Copy PPTSlide.Shapes.PasteSpecial (DataType: = ppPasteMetafilePicture) .Selelect PPThextPexthee.TextTextPexthee.TextTextPexthee.TextTextTexthee.TextTextTexthee.TextTextTexthee.TextTextTexthee.TextTextTexthee (PPThextTextTextTexthee). .Chart.ChartTitle.Text Next PPTC Pokreni Kraj Sub

Time se dovršava kôd za VBA PowerPoint.

Korak 15: Sada sastavite kôd, korak po korak, da biste saznali ima li bilo koji redak pogrešku pritiskom na funkcijsku tipku F8. A nakon toga pokrenite kôd klikom na gumb Play koji se nalazi ispod trake izbornika kao što je prikazano u nastavku.

Grafikon objavljen u PowerPoint datoteci dobit ćemo u prvom dijapozitivu kao što je prikazano u nastavku.

Kako je kôd velik, tako se kompletan kod može vidjeti u tekstnom polju u nastavku.

Prosci Excel VBA PowerPoint

  • Korištenje VBA u programu Powerpoint olakšava rukovanje ako ppt datoteka ima toliko dijapozitiva s ogromnim sadržajem.
  • VBA s Powerpoint-om daje dodir automatizacije čak i s ograničenim raspoloživim funkcijama.

Slabosti Excela VBA PowerPoint

  • Moramo odabrati Microsoft PowerPoint 15.0 Biblioteku objekata iz opcije Reference koja se nalazi u opciji izbornika Alat, a koja nam je potrebna na početku primjera-1, svaki put kada pokrenemo kod za PowerPoint.

Stvari koje treba zapamtiti

  • Nakon pisanja koda, spremite datoteku u formatu prezentacije makronaredbe. To će nam pomoći da izbjegnemo gubitak koda i da u budućnosti ne koristimo isto višestruko više vremena.
  • Značajka ponovnog recitiranja ovdje neće raditi jer trebamo preskočiti iz Excela u PowerPoint mijenjajući sučelje između stranica.
  • Uvijek sastavite kod prije pokretanja. To će vam pomoći da pronađete pogrešku u kodu. To je korisno kad pišemo velike retke koda.
  • Da bismo pokrenuli i implementirali kôd, potrebno je otvoriti excel list s Chart-om koji želimo zalijepiti na PowerPoint slajd.
  • Možemo poravnati grafikon u PowerPointu prema našim potrebama.

Preporučeni članci

Ovo je vodič za VBA PowerPoint. Ovdje smo raspravljali o tome kako stvoriti PowerPoint prezentaciju iz Excela pomoću VBA koda, zajedno s praktičnim primjerom i download-ofom Excel predloška. Možete i pregledati naše druge predložene članke -

  1. VBA stupac za brisanje
  2. Statusna traka u Excelu
  3. VBA Uklanjanje duplikata
  4. Stvorite proračunsku tablicu u Excelu