VBA PowerPoint - Looge PowerPointi esitlus Excelist VBA abil

Lang L: none (table-of-contents):

Anonim

Juhendaja Excel VBA PowerPoint

VBA on võimas tööriist, mida saab kasutada Microsofti integreeritud tööriistade mis tahes piirkonnas. Nagu MS Excel, pakub Powerpoint ka sätet makro loomiseks ja esitluse automatiseerimiseks. Automaatika võib olla mis tahes vormis. Olete näinud esitlusi, kus slaidid on nii suured ja detailsed, et mõnikord on üle 50 slaidi lihtsalt koolitusteema või reportaaži katmiseks. Seega, selle asemel, et Excelis PowerPointi diagramme lisada, saame luua koodi, mis kopeerib diagrammid otse Excelist ja kleebib need PowerPointi slaidile.

Kuidas luua rakendusest Excel VBA PowerPointi esitlus?

Allpool on näide PowerPointi esitluse loomiseks, kasutades VBA koodi Excelis:

Selle VBA PowerPoint Exceli malli saate alla laadida siit - VBA PowerPoint Exceli mall

VBA PowerPointi näide

Koostame diagrammi kõigepealt excelis. Selleks vajame andmeid. Allpool on mõned müügiandmed 8 müüja kohta.

Nüüd loome ülaltoodud andmete abil veergude diagrammi või graafiku. Allpool näeme, nüüd on meil olemas veerudiagramm pealkirjaga Müüdud kogus ja lisatud on kõik sildid.

Nüüd on meie ülesanne saada see graafik PowerPointi slaidile, nagu siin näidatakse koos diagrammi pealkirjaga PowerPointi slaidi pealkirjaga. Selleks peame lubama PowerPointi VBA-s.

Järgige järgmisi samme:

1. samm: minge VBA tööriista menüüsse, nagu allpool näidatud, ja valige allpool näidatud suvand References… .

2. samm: kui oleme selle teinud, saame viited VBA projekti aknad. Valige sellest loendist MS PowerPoint 15.0 objektide kogu, nagu allpool näidatud. See aktiveerib kõik MS PowerPointiga seotud käsud VBA-s. Ilma selleta ei saa me PowerPointis VBA-d käivitada. Märkige nimetatud teegi ruut ja klõpsake nuppu OK .

3. samm: VBA PowerPointi koodi kirjutamiseks vajame moodulit. Uue mooduli saamiseks avage menüü Lisa ja valige moodul, nagu allpool näidatud.

4. samm: kirjutage sellesse moodulisse VBA PowerPointi alamkategooria või mõni muu nimi vastavalt vajadusele, nagu allpool näidatud.

Kood:

 Sub VBA_Presentation () Lõpp Sub

5. samm. Nüüd, kui soovite Exceli diagrammi abil esitluse luua, vajame vähe muutujaid. Vaatleme 5 muutujat järgmiselt:

  1. PA taotlus PowerPointi rakenduse jaoks.
  2. PPT PowerPointi esitluse jaoks,
  3. PPTSlide PowerPointi slaidi jaoks,
  4. PPTSvormid PowerPointi jaoks,
  5. Exceli diagrammiobjekti PPTC-kaardid.

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject End Sub

6. samm: kasutage käsku Set uue PowerPointi rakenduse lisamiseks, nagu allpool näidatud.

Kood:

 Sub VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAplication = New PowerPoint.

7. samm: muutke koodireas PowerPointi rakendus nähtavaks ja kasutage vale viisi salapäraseks hindamiseks rakendust msoCTrue . Ja pärast seda kasutatakse sama rakendust nagu PowerPointis maksimeeritud, et saada täielik vaade.

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAPLACATION = New PowerPoint.Paplikatsioon = New PowerPoint. ppWindowMaximized End Sub

8. samm: määrake nüüd PPT, mis on meie esitlus, mida MS PowerPointi rakenduses lisada,

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAPLACATION = New PowerPoint.Paplikatsioon = New PowerPoint. ppWindowMaximized Set PPT = PAplication.Presentations.Add End Sub

9. samm: nüüd kasutame kombinatsiooni For-Next ja If-Else. Alustades For-Next Loopist.

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAPLACATION = New PowerPoint.Paplikatsioon = New PowerPoint. ppWindowMaximized Set PPT = PAplication.Presentations.Add for Next End Sub

10. samm: PPTC- kaartide silmuse jaoks sisestage Excelis esimesed aktiivsed graafikud.

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAPLACATION = New PowerPoint.Paplikatsioon = New PowerPoint. ppWindowMaximized Set PPT = PAplication.Presentations.Add igale ActiveSheet.ChartObjectsi PPTChartsile.ChartObjects Järgmine PPTCharts End Sub

11. samm: Allpool on kood diagrammi kleepimiseks Excelist PowerPointi slaidile. Kasutage koodi slaidi lisamiseks määratletud PAplicationi, lisades slaidile +1 iga kord, kui koodi käivitame.

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAPLACATION = New PowerPoint.Paplikatsioon = New PowerPoint. ppWindowMaximized Set PPT = PAplication.Presentations.Add igale ActiveSheet PPC-kaardile.ChartObjects PAplication.ActivePresentation.Slides.Add PAplication.ActivePresentation.Slides.Count + 1, ppLayoutText Next PPTCharts End Sub

12. samm: jätkake järgmise koodirea jätkamisel aktiivse aknavaate seadmiseks allolevat koodikomplekti. Seda kasutatakse libistamiseks pärast diagrammi kleepimist PowerPointi esitluses.

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAPLACATION = New PowerPoint.Paplikatsioon = New PowerPoint. ppWindowMaximized Set PPT = PAplication.Presentations.Add igale PPTC-kaardile rakenduses ActiveSheet.ChartObjects PAplication.ActivePresentation.Slides.Add PAplication.ActivePresentation.Slides.Count + 1, ppLayoutText PAIDEation.Plication.Pressation.ActiveW window = PAplication.ActivePresentation.Slides (PAplication.ActivePresentation.Slides.Count) Next PPTCharts End Sub

13. samm: kui see on valmis, valige muutuja PPTChart, mille me varem defineerisime. Pärast seda kopeerige valitud aktiivne diagramm diagrammi alale, kuhu see paigutatakse. Ja kleepige diagrammi piltidega käsk Kleebi spetsiaalselt .

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAPLACATION = New PowerPoint.Paplikatsioon = New PowerPoint. ppWindowMaximized Set PPT = PAplication.Presentations.Add igale PPTC-kaardile rakenduses ActiveSheet.ChartObjects PAplication.ActivePresentation.Slides.Add PAplication.ActivePresentation.Slides.Count + 1, ppLayoutText PAIDEation.Plication.Pressation.ActiveW window = PAplication.ActivePresentation.Slides (PAplication.ActivePresentation.Slides.Count) PPTCharts.Select ActiveChart.ChartArea.Copy PPTSlide.Shapes.PasteSpecial (DataType: = ppPasteMetafilePicture) .Select Next PPTC

14. samm. Valige nüüd diagrammi kuju, mis asub tekstivahemikuna esimesel kohal. Ja kandke PowerPointi esitlusesse sama pealkiri, mis on „ Müüdud kogus ”.

Kood:

 Alam VBA_Presentation () Dim PAplication nagu PowerPoint.Application Dim PPT as PowerPoint.Presentation Dim PPTSlide as PowerPoint.Slide Dim PPTShapes As PowerPoint.Shape Dim PPTCharts as Excel.ChartObject Set PAPLACATION = New PowerPoint.Paplikatsioon = New PowerPoint. ppWindowMaximized Set PPT = PAplication.Presentations.Add igale PPTC-kaardile rakenduses ActiveSheet.ChartObjects PAplication.ActivePresentation.Slides.Add PAplication.ActivePresentation.Slides.Count + 1, ppLayoutText PAIDEation.Plication.Pressation.ActiveW window = PAplication.ActivePresentation.Slides (PAplication.ActivePresentation.Slides.Count) PPTCharts.Select ActiveChart.ChartArea.Copy PPTSlide.Shapes.PasteSpecial (DataType: = ppPasteMetafilePicture) .Select PPTSlide.Shapes (1) .TextFrame.TextRange.Text = PPTCharts .Chart.ChartTitle.Text Next PPTCharts End Sub

See täiendab VBA PowerPointi koodi.

15. samm. Nüüd kompileerige kood samm-sammult, et funktsiooniklahvi F8 vajutades teada saada, kas mõnel koodireal on viga. Ja pärast seda käivitage kood, klõpsates nuppu Esita, mis asub allpool näidatud menüüriba all.

PowerPointi faili postitatud skeem kuvatakse selle esimeses slaidis, nagu allpool näidatud.

Kuna kood on suur, saab kogu koodi näha allpool olevast tekstikastist.

Excel VBA PowerPointi plussid

  • VBA kasutamine Powerpointis on hõlpsasti käsitsetav, kui ppt-failis on nii palju tohutu sisuga slaidid.
  • VBA koos Powerpointiga võimaldab automatiseerida isegi piiratud funktsioonidega.

Excel VBA PowerPointi miinused

  • Iga kord, kui käivitame PowerPointi koodi, peame valima menüüs Tööriistad asuva suvandi Viide suvandi Microsoft PowerPoint 15.0 objektide teegi, mida vajame näite-1 alguses.

Asjad, mida meeles pidada

  • Pärast koodi kirjutamist salvestage fail vormingus Macro-Enable Presentation. See aitab meil vältida koodi kaotamist ja sama mitmekordse aja kasutamist tulevikus.
  • Salvestamise funktsioon siin ei tööta, kuna peame hüppama Excelilt PowerPointile, muutes lehtede vahelist liidest.
  • Enne jooksmist kompileerige alati kood. See aitab teil koodist tõrke leida. See on üsna kasulik, kui kirjutame suuri koodiridasid.
  • Koodi käivitamiseks ja rakendamiseks peame avama Exceli lehe diagrammiga, mille soovite kleepida PowerPointi slaidile.
  • Saame diagrammi PowerPointis joondada vastavalt oma vajadustele.

Soovitatavad artiklid

See on VBA PowerPointi juhend. Siin arutatakse, kuidas luua Excelist PowerPointi esitlust, kasutades VBA koodi koos praktilise näite ja allalaaditava excelimalliga. Võite vaadata ka meie teisi soovitatud artikleid -

  1. VBA kustuta veerg
  2. Olekuriba Excelis
  3. VBA eemalda duplikaadid
  4. Looge arvutustabel Excelis