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 -malli

Yleensä 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


$config[zx-auto] not found$config[zx-overlay] not found