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" -toimintoa ja toinen "Late Binding" -toimintoa. Näytämme sinulle, miten PowerPoint-esitys luodaan "Early Binding" -tekniikalla .
Yleensä Excelistä valmistelemme esityksiä kaavioiden ja kaavioiden tulkinnan perusteella. Joten tähän tarkoitukseen olen luonut joitain yksinkertaisia Excel-kaavioita ja tulkintoja samaan laskentataulukkoon.
Vaihe 1: Käynnistä aliohjelma VBA: ssa. Nyt voisimme käyttää PowerPointia, olemme jo ottaneet PowerPoint-objektimallin käyttöön aikaisemmissa vaiheissa. Tämän käyttämiseksi meidän on ilmoitettava muuttuja PowerPoint.Application-sovellukseksi.
Koodi:
Sub PPT_Example () Dim PPApp PowerPoint.Application End Sub
Vaihe 2: Jos haluat lisätä esityksen 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 ilmoittaminen PowerPoint.Slide-tiedostoksi
Koodi:
Himmennä PPSlide kuin PowerPoint
Vaihe 4: Kun dia on lisätty PowerPointiin, meidän on käytettävä PowerPointin muotoja eli tekstikenttiä. 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 Excel.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 PowerPointiksi.
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 koodi tällä hetkellä vain F5-näppäimellä tai manuaalisesti. Sinun pitäisi nähdä PowerPoint-sovellus käynnistettynä 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.
Step 9: After adding the presentation, we need to add a slide.
Code:
Set PPSlide = PPPresentation.Slides.Add(1, ppLayoutTitleOnly)
Now this will add the title slide like the below.
Step 10: Now we have more than one chart in the worksheet, we need to loop through each chart and paste in the presentation. Below is the code to copy and paste the chart as well as interpretation.
Below is the complete code for you.
Sub PPT_Example() Dim PPApp As PowerPoint.Application Dim PPPresentation As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim PPShape As PowerPoint.Shape Dim PPCharts As Excel.ChartObject Set PPApp = New PowerPoint.Application PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized 'Add Presentation Set PPPresentation = PPApp.Presentations.Add 'Loop through each chart in the Excel and paste into the PowerPoint For Each PPCharts In ActiveSheet.ChartObjects PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutText PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides(PPApp.ActivePresentation.Slides.Count) 'Copy the chart and paste in Powerpoint PPCharts.Select ActiveChart.ChartArea.Copy PPSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select 'Add heading to the slide PPSlide.Shapes(1).TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text 'Allignment of the chart PPApp.ActiveWindow.Selection.ShapeRange.Left = 15 PPApp.ActiveWindow.Selection.ShapeRange.Top = 125 PPSlide.Shapes(2).Width = 200 PPSlide.Shapes(2).Left = 505 'Add interpretation If InStr(PPSlide.Shapes(1).TextFrame.TextRange.Text, "Region") Then PPSlide.Shapes(2).TextFrame.TextRange.Text = Range("K2").Value & vbNewLine PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K3").Value & vbNewLine) 'Else if the chart is the "Renewable" consumption chart, then enter the appropriate comments ElseIf InStr(PPSlide.Shapes(1).TextFrame.TextRange.Text, "Month") Then PPSlide.Shapes(2).TextFrame.TextRange.Text = Range("K20").Value & vbNewLine PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K21").Value & vbNewLine) PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K22").Value & vbNewLine) End If 'Now let's change the font size of the callouts box PPSlide.Shapes(2).TextFrame.TextRange.Font.Size = 16 Next PPCharts End Sub
