Excel VBA PowerPoint
Z uporabo VBA lahko avtomatiziramo delo, ki ga opravljamo za PowerPoint, vendar najprej, če želimo uporabiti kodo VBA ali delčke za delo v Powerpointu, najprej uporabimo varnostne možnosti v PowerPointu, da omogočimo vse makre, nato pa lahko uporabimo referenco PowerPoint VBA za makre v MS Power Point.
Lepota VBA je, da se lahko sklicujemo na druge Microsoftove izdelke, kot sta "Microsoft Word" in "Microsoft PowerPoint." Običajno ustvarjamo poročila v Excelu, nato pa PowerPointove predstavitve. Vsi uporabniki Excela običajno porabijo precej časa za pripravo predstavitve iz Excelovih podatkov in poročil. Če porabite precej časa za pripravo predstavitev PowerPointa, vam bo ta vadnica pokazala, kako ustvarite predstavitev PowerPointa iz samega excela z uporabo koda VBA.
Omogoči objektni model Powerpoint
1. korak: Odprite urejevalnik VBA in nato pojdite na Orodja in reference.
2. korak: Zdaj boste videli vse sklice na projekt VBA. Pomaknite se navzdol in izberite »Knjižnica predmetov Microsoft PowerPoint 15.0«.
3. korak: Kliknite, v redu. Zdaj lahko do PowerPointa dostopamo iz Excela.
Vadnica VBA za ustvarjanje predstavitve PowerPoint
PPT lahko ustvarimo na dva načina, tako da uporabimo »Early Binding«, drugi pa »Late Binding. Pokazali vam bomo, kako ustvarite PowerPoint predstavitev s tehniko "Early Binding" .
Običajno iz Excela pripravimo predstavitve na podlagi grafikonov in interpretacije kart. V ta namen sem v istem delovnem listu ustvaril nekaj preprostih lestvic in interpretacij.
1. korak: Zaženite podprogram v VBA. Zdaj za dostop do PowerPointa smo v prejšnjih korakih že omogočili objektni model PowerPoint. Za dostop do tega moramo spremenljivko razglasiti kot PowerPoint.Application.
Koda:
Sub PPT_Example () Dim PPApp kot PowerPoint.Application End Sub
2. korak: Če želimo predstavitev dodati v PowerPoint, moramo spremenljivko razglasiti kot PowerPoint.Presentation.
Koda:
Zatemni PPPresentation kot PowerPoint
3. korak: Po predstavitvi predstavitve v PowerPoint moramo dodati diapozitiv. Če želite spremenljivko razglasiti kot PowerPoint.Slide
Koda:
Zatemni PPSlide kot PowerPoint
4. korak: Ko je diapozitiv dodan v PowerPoint, moramo uporabiti oblike v PowerPointu, to je besedilna polja. Če želite spremenljivko razglasiti kot PowerPoint.Shape
Koda:
Zatemni PPShape kot PowerPoint
5. korak: Za dostop do vseh grafikonov na delovnem listu moramo spremenljivko razglasiti kot Excel.ChartObjects.
Koda:
Zatemni PPCharts kot Excel.ChartObject
Ok, za začetek postopka so te spremenljivke dovolj.
6. korak: Zdaj moramo PowerPoint zagnati iz Excela. Ker gre za zunanji objekt, ga moramo nastaviti kot nov PowerPoint.
Koda:
Nastavite PPApp = Nova PowerPoint.Application
S tem bo nov excel PowerPoint.
7. korak: Spremenljivka PPApp je enaka PowerPointu, ki smo ga zagnali. Zdaj naj bo ta PowerPoint viden in okno povečajte.
Koda:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
V tem trenutku preprosto zaženite kodo s tipko F5 ali ročno. Videti bi morali, da se zažene aplikacija PowerPoint, kot spodaj.
8. korak: Zdaj moramo v predstavljeno aplikacijo PowerPoint dodati predstavitev.
Koda:
Nastavite PPPresentation = PPApp.Presentations.Add
Zdaj bi morali videti tako predstavitev PowerPointa.
9. korak: Po dodajanju predstavitve moramo dodati diapozitiv.
Koda:
Nastavite PPSlide = PPPresentation.Slides.Add (1, ppLayoutTitleOnly)
Zdaj bo to dodalo naslovni diapozitiv, kot je prikazano spodaj.
10. korak: Zdaj imamo na delovnem listu več grafikonov, ki jih moramo prestaviti skozi posamezen grafikon in prilepiti v predstavitev. Spodaj je koda za kopiranje in lepljenje grafikona ter interpretacija.
Spodaj je celotna koda za vas.
Sub PPT_Example () Dim PPApp kot PowerPoint.Application Dim PPPresentation As PowerPoint.Presentation Dim PPSlide As PowerPoint. Drsi Dim PPShape kot PowerPoint. ppWindowMaximized 'Add Presentation Set PPPresentation = PPApp.Presentations.Add' Prelistajte vsak grafikon v Excelu in prilepite v PowerPoint za vsak PPCharts v 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 in ga prilepite v Powerpoint PPCharts. Izberite ActiveChart.ChartAlide.CopyPhartAreade .PasteSpecial (Vrsta podatkov:= ppPasteMetafilePicture). Izberite 'Dodaj naslov na diapozitiv PPSlide.Shapes (1) .TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text' Poravnava grafikona PPApp.ActiveWindow.Selection.ShapeRangeAppPackAppRageRange. .Selection.ShapeRange.Top = 125 PPSlide.Shapes (2) .Width = 200 PPSlide.Shapes (2) .Left = 505 'Dodaj razlago If InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Region" ) Nato PPSlide.Shapes (2) .TextFrame.TextRange.Text = Range ("K2"). Value & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range ("K3"). Value & vbNewLine) V nasprotnem primeru, če je grafikon grafikon porabe "Obnovljivi viri", vnesite ustrezne komentarje ElseIf InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Month") Nato PPSlide.Shapes (2) .TextFrame.TextRange.Text = Obseg ("K20 "). Value & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (" K21 "). Value & vbNewLine) PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (Range") .Value & vbNewLine) End If 'Zdaj spremenimo velikost pisave v polju z oblački PPSlide.Shapes (2) .TextFrame.TextRange.Font.Size = 16 Naslednja PPCharts End Sub
