Exceli VBA PowerPoint
VBA-d kasutades saame automatiseerida PowerPointi jaoks tehtavat tööd, kuid kõigepealt selleks, et kasutada PowerPointi töötamiseks VBA-koodi või juppe, uurige kõigepealt kõigi makrode lubamiseks PowerPointi turvavõimalusi ja seejärel saame kasutada MS-i makrode jaoks PowerPointi VBA-viiteid PowerPoint.
VBA ilu on see, et saame viidata teistele Microsofti toodetele, näiteks „Microsoft Word” ja „Microsoft PowerPoint”. Tavaliselt loome Excelis aruanded ja seejärel PowerPointi esitlused. Kõik Exceli kasutajad kulutavad Exceli andmetest ja aruannetest esitluse ettevalmistamiseks tavaliselt märkimisväärselt palju aega. Kui veedate märkimisväärselt palju aega PowerPointi esitluste ettevalmistamiseks, näitab see õpetus teile, kuidas luua Excelist PowerPointi esitlus VBA-kodeerimise abil.
Luba Powerpointi objektimudel
1. samm: avage VBA redaktor ja seejärel minge jaotisse Tööriistad ja viited.
2. samm: nüüd näete kõiki viiteid VBA projektile. Kerige alla ja valige „Microsoft PowerPoint 15.0 Object Library“.
3. samm: klõpsake nuppu OK. Nüüd pääseme PowerPointi juurde Exceli kaudu.
VBA õpetus PowerPointi esitluse loomiseks
Saame PPT-d luua kahel viisil, kasutades valikut „Varajane köitmine”, ja teine „Hilinenud köitmine”. Näitame teile, kuidas luua PowerPointi esitlus „Early Binding“ tehnika abil .
Tavaliselt valmistame exceli põhjal ettekandeid diagrammide ja diagrammide tõlgenduse põhjal. Niisiis olen selleks tööleheks loonud mõned lihtsad Exceli diagrammid ja tõlgendused.
1. samm: käivitage VBA alamprogramm. Nüüd on PowerPointile juurdepääsemiseks juba varasemates toimingutes lubatud PowerPointi objektimudel. Sellele juurdepääsu saamiseks peame muutuja deklareerima PowerPointiks. Rakendus.
Kood:
Sub PPT_Example () Dim PPApp PowerPointina. Rakenduse lõpp Sub
2. samm: esitluse PowerPointi lisamiseks peame muutuja deklareerima PowerPointiks. Esitlus.
Kood:
Hämardav PPPresentation PowerPointina. Esitlus
3. samm: pärast esitluse lisamist PowerPointi peame lisama slaidi. Muutuja deklareerimiseks PowerPoint.Slide
Kood:
Hämarda PPSlide PowerPointina. Slide
4. samm: kui slaid on PowerPointi lisatud, peame kasutama PowerPointi kujundeid, st tekstikaste. Muutuja deklareerimiseks PowerPoint.Shape
Kood:
Dim PPShape kui PowerPoint. Kuju
5. samm: nüüd, et pääseda töölehe kõigile diagrammidele juurde, peame muutuja deklareerima Excelina. ChartObjects.
Kood:
Hämarda PPChartsid kui Excel.ChartObject
Ok, menetluse alustamiseks piisab nendest muutujatest.
6. samm: nüüd peame käivitama PowerPointi Excelist. Kuna tegemist on välise objektiga, peame selle määrama uueks PowerPointiks.
Kood:
Määra PPApp = Uus PowerPoint. Rakendus
See käivitab Exceli uue PowerPointi.
7. samm: nüüd on muutuja PPApp võrdne käivitatud PowerPointiga. Nüüd tehke see PowerPoint nähtavaks ja maksimeerige aken.
Kood:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
Sel hetkel käivitage kood lihtsalt klahviga F5 või käsitsi. Peaksite nägema, et PowerPointi rakendus käivitati nagu allpool.
8. samm: nüüd peame oma käivitatud PowerPointi rakendusse lisama esitluse.
Kood:
Määra PPPresentation = PPApp.Presentations.Add
Nüüd peaksime nägema sellist PowerPointi esitlust.
9. samm: pärast esitluse lisamist peame lisama slaidi.
Kood:
Määra PPSlide = PPPresentation.Slides.Add (1, ppLayoutTitleOnly)
Nüüd lisab see pealkirja slaidi nagu allpool.
10. samm: Nüüd on meil töölehel rohkem kui üks diagramm, peame iga diagrammi läbi vaatama ja esitlusse kleepima. Allpool on kood diagrammi kopeerimiseks ja kleepimiseks ning tõlgendamine.
Allpool on teie täielik kood.
Sub PPT_Example () Dim PPApp PowerPointina. Rakendus Dim PPPresentation PowerPointina. Esitlus Dim PPSlide kui PowerPoint. Libistage Dim PPShape kui PowerPoint. Kujundage Dim PPCharts kui Excel.ChartObject Set PPApp = New PowerPoint.Application PPApp.Visible = msoCTrue ppWindowMaximized "Esitluskomplekti lisamine PPPresentation = PPApp.Presentations.Add" Looge iga Exceli diagramm läbi ja kleepige PowerScripti iga PPCchartsi jaoks ActiveSheetis. ChartObjects PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1 PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides (PPApp.ActivePresentation.Slides.Count) Copy diagrammi ja kleebi Powerpoint PPCharts.Select ActiveChart.ChartArea.Copy PPSlide.Shapes .PasteSpecial (DataType:= ppPasteMetafilePicture). Valige slaidile PPSlide.Shapes (1) pealkirja lisamine .TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text 'Diagrammi jaotamine PPApp.ActiveWindow.Selection.ShapeRange.Lef .Selection.ShapeRange.Top = 125 PPSlide.Shapes (2) .Width = 200 PPSlide.Shapes (2). Vasak = 505 'Lisage tõlgendus, kui InStr (PPSlide.Shapes (1) .TextFrame.TextRange.Text, "Region" ) Seejärel PPSlide.Shapes (2) .TextFrame.TextRange.Text = Vahemik ("K2"). Väärtus & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range ("K3". Väärtus & vbNewLine) ' Muul juhul, kui diagramm on "taastuvenergia" tarbimisdiagramm, siis sisestage asjakohased kommentaarid = Vahemik ("K20 "). Väärtus & vbNewLine PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (" K21 "). Value & vbNewLine) PPSlide.Shapes (2) .TextFrame.TextRange.InsertAfter (Range (" K22 ") .Value & vbNewLine) Lõpeta Kui 'Nüüd muudame tähelepanulaiendite kasti PPSlide.Shapes (2) .TextFrame.TextRange.Font.Size = 16 Järgmine PPChartsi lõigu alamfondi suurus
