Excel VBA PowerPoint
Korištenjem VBA možemo automatizirati posao koji radimo za PowerPoint, ali prvo da bismo koristili VBA kôd ili isječke za rad u Powerpoint-u, prvo proradimo sigurnosne opcije u PowerPointu kako bismo omogućili sve makronaredbe, a zatim možemo koristiti PowerPoint VBA referencu za makronaredbe u MS-u PowerPoint.
Ljepota VBA je u tome što se možemo pozivati na druge Microsoftove proizvode poput "Microsoft Word" i "Microsoft PowerPoint". Obično izrađujemo izvješća u Excelu, a zatim izrađujemo PowerPoint prezentacije. Svi Excelovi korisnici obično potroše poprilično vremena na pripremu prezentacije iz Excelovih podataka i izvještaja. Ako trošite znatan dio vremena na pripremu PowerPoint prezentacija, ovaj vodič će vam pokazati kako stvoriti PowerPoint prezentaciju od samog Excel-a pomoću VBA kodiranja.
Omogući Powerpoint objektni model
Korak 1: Otvorite VBA Editor, a zatim idite na Alati i reference.
Korak 2: Sad ćete vidjeti sve reference na VBA projekt. Pomaknite se prema dolje i odaberite "Knjižnica objekata Microsoft PowerPoint 15.0".
Korak 3: Kliknite, u redu. Sada Powerpointu možemo pristupiti iz Excela.
VBA Vodič za stvaranje PowerPoint prezentacije
PPT možemo stvoriti na dva načina, jedan pomoću "Early Binding", a drugi pomoću "Late Binding". Pokazat ćemo vam kako stvoriti PowerPoint prezentaciju tehnikom "Rano povezivanje" .
Obično od Excela pripremamo prezentacije na temelju karata i interpretacije karata. Stoga sam u tu svrhu stvorio nekoliko jednostavnih Excel tablica i interpretacija na istom radnom listu.
Korak 1: Pokrenite potprogram u VBA. Sada za pristup PowerPointu, već smo omogućili objektni model PowerPoint u ranijim koracima, sada. Da bismo pristupili ovome, moramo deklarirati varijablu kao PowerPoint.Application.
Kodirati:
Sub PPT_Example () Dim PPApp kao PowerPoint.Application End Sub
Korak 2: Da bismo prezentaciju dodali u PowerPoint, trebamo proglasiti varijablu kao PowerPoint.Presentation.
Kodirati:
Zatamnite PPPresentation kao PowerPoint.Presentation
Korak 3: Nakon dodavanja prezentacije u PowerPoint, moramo dodati Slide. Da bi varijablu proglasili PowerPoint.Slide
Kodirati:
Zatamnite PPSlide kao PowerPoint.Slide
Korak 4: Jednom kada se slajd doda u PowerPoint, trebamo koristiti oblike u PowerPointu, tj. Tekstualne okvire. Proglasiti varijablu kao PowerPoint.Shape
Kodirati:
Zatamni PPShape kao PowerPoint.Shape
Korak 5: Sada, da bismo pristupili svim grafikonima na radnom listu, trebamo deklarirati varijablu kao Excel.ChartObjects.
Kodirati:
Zatamni PPCharts kao Excel.ChartObject
Ok, za početak postupka dovoljne su ove varijable.
Korak 6: Sada moramo pokrenuti PowerPoint iz Excela. Budući da je to vanjski objekt, moramo ga postaviti kao novi PowerPoint.
Kodirati:
Postavite PPApp = Nova PowerPoint.Aplikacija
Ovo će pokrenuti novi PowerPoint iz Excela.
7. korak: Sada je varijabla PPApp jednaka PowerPointu koji smo pokrenuli. Sada učinite ovaj PowerPoint vidljivim i maksimizirajte prozor.
Kodirati:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
U ovom trenutku samo pokrenite kôd pomoću tipke F5 ili ručno. Trebali biste vidjeti pokrenutu aplikaciju PowerPoint kao dolje.
Korak 8: Sada moramo dodati prezentaciju u PowerPoint aplikaciju koju smo pokrenuli.
Kodirati:
Postavite PPPresentation = PPApp.Presentations.Add
Sad bismo trebali vidjeti PowerPointovu prezentaciju poput ove.
Korak 9: Nakon dodavanja prezentacije moramo dodati slajd.
Kodirati:
Postavite PPSlide = PPPresentation.Slides.Add (1, ppLayoutTitleOnly)
Sada ćete dodati naslovni slajd kao dolje.
Korak 10: Sada na radnom listu imamo više od jednog grafikona, moramo proći kroz svaki grafikon i zalijepiti u prezentaciju. Ispod je kôd za kopiranje i lijepljenje grafikona, kao i tumačenje.
Ispod je kompletan kod za vas.
Pod PPT_Example () Zatamni PPApp kao PowerPoint.Aplikacija Zatamni PPPresentation kao PowerPoint.Presentation Dim PPSlide Kao PowerPoint.Smide Dim PPShape kao PowerPoint. Oblik Dim PPCharts Kao Excel.ChartObject Set PPApp = New PowerPoint.Application PPApp.CTruePSA PPApp.Visrue PPApp. ppWindowMaximized 'Dodaj skup prezentacija PPPresentation = PPApp.Presentations.Add' Prelistajte svaki grafikon u Excelu i zalijepite u PowerPoint za svaki PPCharts u ActiveSheet.ChartObjects PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Countout + 1, PPL. PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides (PPApp.ActivePresentation.Slides.Count) 'Kopirajte grafikon i zalijepite u Powerpoint PPCharts.Select ActiveChart.ChartAlide. .PasteSpecial (Vrsta podataka:= ppPasteMetafilePicture) .Odaberite "Dodaj naslov slajdu PPSlide.Shapes (1) .TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text 'Poravnanje grafikona PPApp.ActiveWindow.Selection.ShapeRangeActivePindow. .Selection.ShapeRange.Top = 125 PPSlide.Shapes (2) .Width = 200 PPSlide.Shapes (2) .Left = 505 'Dodaj tumačenje If InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Region" ) Zatim PPSlide.Shapes (2) .TextFrame.TextRange.Text = Range ("K2"). Value & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range ("K3"). Value & vbNewLine) Inače ako je grafikon grafikon potrošnje "Obnovljivi izvori", unesite odgovarajući komentar ElseIf InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Month") Zatim PPSlide.Shapes (2) .TextFrame.TextRange.Text = Raspon ("K20 "). Value & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (" K21 "). Value & vbNewLine) PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (Range" (Range ") .Value & vbNewLine) End If 'Sada promijenimo veličinu fonta u okviru dodatnih opisa PPSlide.Shapes (2) .TextFrame.TextRange.Font.Size = 16 Sljedeći PPCharts End Sub
