„Excel VBA PowerPoint“
Naudodami VBA galime automatizuoti darbą, kurį atliekame naudodami „PowerPoint“, tačiau pirmiausia norėdami naudoti „VBA“ kodą ar fragmentus darbui „Powerpoint“, pirmiausia naudokitės „PowerPoint“ saugos parinktimis, kad įgalintumėte visas makrokomandas, o tada galime naudoti „PowerPoint VBA“ nuorodą makrokomandoms MS „PowerPoint“.
VBA grožis yra tai, kad galime remtis kitais „Microsoft“ produktais, tokiais kaip „Microsoft Word“ ir „Microsoft PowerPoint“. Paprastai „Excel“ programoje kuriame ataskaitas, o tada kuriame „PowerPoint“ pristatymus. Visi „Excel“ vartotojai paprastai praleidžia daug laiko, kad parengtų pristatymą iš „Excel“ duomenų ir ataskaitų. Jei praleidžiate daug laiko ruošdami „PowerPoint“ pristatymus, ši pamoka parodys, kaip sukurti „PowerPoint“ pristatymą iš pačios „Excel“ naudojant „VBA“ kodavimą.
Įgalinti „Powerpoint“ objekto modelį
1 žingsnis: Atidarykite VBA redaktorių, tada eikite į Įrankiai ir nuorodos.
2 žingsnis: Dabar pamatysite visas nuorodas į VBA projektą. Slinkite žemyn ir pasirinkite „Microsoft PowerPoint 15.0 Object Library“.
3 žingsnis: Spustelėkite Gerai. Dabar mes galime pasiekti „PowerPoint“ iš „Excel“.
VBA „PowerPoint“ pristatymo kūrimo pamoka
Mes galime sukurti PPT dviem būdais: „Ankstyvasis įrišimas“, kitas - „Vėlyvas įrišimas“. Mes parodysime, kaip sukurti „PowerPoint“ pristatymą naudojant „Early Binding“ techniką .
Paprastai iš „excel“ mes ruošiame pristatymus, remdamiesi diagramomis ir diagramų aiškinimu. Taigi šiam tikslui tame pačiame darbalapyje sukūriau keletą paprastų „Excel“ diagramų ir interpretacijų.
1 žingsnis: VBA pradėkite paprogramę. Dabar, norėdami pasiekti „PowerPoint“, jau įgalinome „PowerPoint“ objekto modelį atlikdami ankstesnius veiksmus. Norėdami tai pasiekti, turime paskelbti kintamąjį kaip „PowerPoint“.
Kodas:
Sub PPT_Pavyzdys () „Dim PPApp“ kaip „PowerPoint“. Paraiškos pabaiga
2 žingsnis: norėdami pridėti pristatymą prie „PowerPoint“, turime paskelbti kintamąjį kaip „PowerPoint“.
Kodas:
„Dim PPPresentation“ kaip „PowerPoint“. Pateikimas
3 žingsnis: Pridėję pristatymą prie „PowerPoint“, turime pridėti skaidrę. Norėdami paskelbti kintamąjį kaip „PowerPoint“
Kodas:
„Dim PPSlide“ kaip „PowerPoint“
4 žingsnis: Pridėjus skaidrę prie „PowerPoint“, turime naudoti „PowerPoint“ formas, ty teksto laukelius. Norėdami paskelbti kintamąjį kaip „PowerPoint“
Kodas:
„Dim PPShape“ kaip „PowerPoint“. Shape
5 žingsnis: Dabar, norėdami pasiekti visas darbalapio diagramas, turime deklaruoti kintamąjį kaip „Excel“. „ChartObjects“.
Kodas:
„Dim PPCharts“ kaip „Excel“. ChartObject
Gerai, norint pradėti procesą, pakanka šių kintamųjų.
6 žingsnis: Dabar turime paleisti „PowerPoint“ iš „Excel“. Kadangi tai yra išorinis objektas, turime tai nustatyti kaip naują „PowerPoint“.
Kodas:
Nustatykite PPApp = Nauja „PowerPoint“. Taikymas
Tai leis iš „Excel“ paleisti naują „PowerPoint“.
7 žingsnis: Dabar kintamasis PPApp yra lygus „PowerPoint“, kurį mes paleidome. Dabar padarykite šį „PowerPoint“ matomą ir padidinkite langą.
Kodas:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
Šiuo metu tiesiog paleiskite kodą naudodami F5 klavišą arba rankiniu būdu. Turėtumėte pamatyti, kad „PowerPoint“ programa buvo paleista kaip žemiau.
8 žingsnis: Dabar turime pridėti pristatymą prie paleistos „PowerPoint“ programos.
Kodas:
Nustatykite PPPresentation = PPApp.Presentations.Add
Dabar turėtume pamatyti tokį „PowerPoint“ pristatymą.
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
