VBA PowerPoint | VBA-opastus Powerpoint-esityksen luomiseen
Excel VBA PowerPoint
VBA: n avulla voimme automatisoida PowerPointille tekemämme työn, mutta ensin voidaksesi käyttää VBA-koodia tai katkelmia työskennelläksesi PowerPointissa, tutustu ensin PowerPointin suojausasetuksiin kaikkien makrojen ottamiseksi käyttöön ja sitten voimme käyttää PowerPoint VBA -viitteitä makroihin MS: ssä PowerPoint.
VBA: n kauneus on, että voimme viitata muihin Microsoftin tuotteisiin, kuten "Microsoft Word" ja "Microsoft PowerPoint". Luomme yleensä raportteja Excelissä ja sitten PowerPoint-esityksiä. Kaikki excelin käyttäjät käyttävät yleensä huomattavan paljon aikaa esityksen valmisteluun excel-tiedoista ja raporteista. Jos vietät paljon aikaa PowerPoint-esitysten valmisteluun, tämä opetusohjelma näyttää, kuinka voit luoda PowerPoint-esityksen Excelistä itse käyttämällä VBA-koodausta.
Ota Powerpoint-objektimalli käyttöön
Vaihe 1: Avaa VBA Editor ja siirry sitten Työkalut ja viitteet.
Vaihe 2: Nyt näet kaikki viittaukset VBA-projektiin. Vieritä alaspäin ja valitse ”Microsoft PowerPoint 15.0 Object Library”.
Vaihe 3: Napsauta OK. Nyt voimme käyttää PowerPointia Excelistä.
VBA-opetusohjelma PowerPoint-esityksen luomiseen
Voimme luoda PPT: n kahdella tavalla käyttämällä "Early Binding" -ohjelmaa ja toinen "Late Binding" -toimintoa. Näytämme sinulle, kuinka voit luoda PowerPoint-esityksen käyttämällä "Early Binding" -tekniikkaa .
Voit ladata tämän VBA PowerPoint Excel -mallin täältä - VBA PowerPoint Excel -malliYleensä excelistä valmistelemme esityksiä kaavioiden ja kaavioiden tulkinnan perusteella. Joten tähän tarkoitukseen olen luonut yksinkertaisia Excel-kaavioita ja tulkintoja samaan laskentataulukoon.
Vaihe 1: Käynnistä aliohjelma vba: ssa. Nyt pääsyyn PowerPointiin olemme jo ottaneet PowerPoint-objektimallin käyttöön aikaisemmissa vaiheissa. Tämän käyttämiseksi meidän on ilmoitettava muuttuja PowerPoint-sovellukseksi.
Koodi:
Sub PPT_Example () Dim PPApp PowerPoint.Application End Sub
Vaihe 2: Jotta esitys voidaan lisätä PowerPointiin, meidän on ilmoitettava muuttuja PowerPointiksi.
Koodi:
Hämärä PP-esitys PowerPoint-esityksenä
Vaihe 3: Kun olet lisännyt esityksen PowerPointiin, meidän on lisättävä Slide. Muuttujan julistaminen PowerPoint.Slide-muotoon
Koodi:
Himmennä PPSlide kuin PowerPoint
Vaihe 4: Kun dia on lisätty PowerPointiin, meidän on käytettävä muotoja PowerPointissa eli tekstikentissä. Muuttujan julistaminen PowerPoint.Shape-muotoksi
Koodi:
Himmennä PPShape kuin PowerPoint. Muoto
Vaihe 5: Nyt pääsemään kaikkiin taulukon kaavioihin meidän on ilmoitettava muuttuja Exceliksi.ChartObjects.
Koodi:
Himmennä PPCharts kuin Excel.ChartObject
Ok, menettelyn aloittamiseksi nämä muuttujat ovat riittäviä.
Vaihe 6: Nyt meidän on käynnistettävä PowerPoint Excelistä. Koska se on ulkoinen objekti, meidän on asetettava tämä uudeksi tehopisteeksi.
Koodi:
Aseta PPApp = Uusi PowerPoint.Application
Tämä käynnistää uuden PowerPointin Excelistä.
Vaihe 7: Muuttuja PPApp on nyt yhtä suuri kuin käynnistämämme PowerPoint. Tee nyt tämä PowerPoint näkyväksi ja suurenna ikkuna.
Koodi:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
Suorita vain koodi tällä hetkellä F5-näppäimellä tai manuaalisesti, sinun pitäisi nähdä PowerPoint-sovellus käynnistetyksi kuten alla.
Vaihe 8: Nyt meidän on lisättävä esitys käynnistämäämme PowerPoint-sovellukseen.
Koodi:
Aseta PPPresentation = PPApp.Presentations.Add
Nyt meidän pitäisi nähdä tällainen PowerPoint-esitys.
Vaihe 9: Esityksen lisäämisen jälkeen meidän on lisättävä dia.
Koodi:
Aseta PPSlide = PPPresentation.Slides.Add (1, ppLayoutTitleOnly)
Nyt tämä lisää otsikkodan kuten alla.
Vaihe 10: Nyt taulukossa on useampi kuin yksi kaavio, joka meidän on selattava jokaista kaaviota ja liitettävä esitykseen. Alla on koodi kaavion kopioimiseksi ja liittämiseksi sekä tulkinta.
Alla on täydellinen koodi sinulle.
Sub PPT_Example () Himmennä PPApp PowerPointina. Sovellus Dim PPPresentation PowerPointina. Esitys Dim PPSlide kuin PowerPoint. Slide Dim PPShape kuin PowerPoint. Shape Dim PPCharts kuten Excel.ChartObject Set PPApp = Uusi PowerPoint.Application PPApp.Visible = msoCTrue ppWindowMaximized 'Lisää esitysjoukko PPPresentation = PPApp.Presentations.Add' Silmukkaa jokaisen kaavion läpi Excelissä ja liitä se PowerPoint-kansioon jokaiselle PPChartsille ActiveSheetissä. PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides (PPApp.ActivePresentation.Slides.Count) 'Kopioi kaavion ja liitä Powerpoint PPCharts.Select ActiveChart.ChartArea.Copy PPSlide.Shapes .PasteSpecial (DataType:= ppPasteMetafilePicture) .Valitse 'Lisää otsikko diaan PPSlide.Shapes (1) .TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text' Kaavion allokointi PPApp.ActiveWindow.Selection.ShapeRange.Lef .Selection.ShapeRange.Top = 125 PPSlide.Shapes (2) .Width = 200 PPSlide.Shapes (2) .Left = 505 'Lisää tulkinta If InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Region" ) Sitten PPSlide.Shapes (2) .TextFrame.TextRange.Text = Alue ("K2"). Arvo & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Alue ("K3". Arvo ja vbNewLine) ' Muuten, jos kaavio on "Uusiutuva" -kulutuskaavio, kirjoita sitten tarvittavat kommentit ElseIf InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Month") ja sitten PPSlide.Shapes (2) .TextFrame.TextRange.Text = Alue ("Arvo & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range ("K21"). Value & vbNewLine) PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range ("K22") .Value & vbNewLine) Loppu Jos 'Muutetaan nyt huomiotekstiruudun fonttikokoa PPSlide.Shapes (2) .TextFrame.TextRange.Font.Size = 16 Seuraava PPCharts End Sub