Excel VBA PowerPoint
A VBA használatával automatizálhatjuk a PowerPoint számára végzett munkát, de először annak érdekében, hogy a VBA kódot vagy kódrészleteket használjuk a PowerPoint-ban való munkavégzéshez, először a PowerPoint biztonsági opcióin keresztül végezzük el az összes makró engedélyezését, majd használhatjuk a PowerPoint VBA referenciáját az MS makrói számára PowerPoint.
A VBA szépsége, hogy hivatkozhatunk más Microsoft termékekre is, például a „Microsoft Word” és a „Microsoft PowerPoint”. Általában Excel-ben készítünk jelentéseket, majd PowerPoint-prezentációkat hozunk létre. Az összes excel-felhasználó általában jelentős időt tölt el a prezentáció elkészítéséhez az excel-adatokból és jelentésekből. Ha jelentős időt tölt el a PowerPoint-prezentációk előkészítésével, akkor ez az oktatóanyag megmutatja, hogyan hozhat létre PowerPoint-prezentációt maga Excelből a VBA kódolás használatával.
Engedélyezze a Powerpoint objektum modelljét
1. lépés: Nyissa meg a VBA szerkesztőt, majd lépjen az Eszközök és hivatkozások részhez.
2. lépés: Most meglátja a VBA projektre vonatkozó összes hivatkozást. Görgessen lefelé, és válassza a „Microsoft PowerPoint 15.0 Object Library” lehetőséget.
3. lépés: Kattintson az OK gombra. Most hozzáférhetünk a PowerPointhoz az excelből.
VBA bemutató a PowerPoint bemutató létrehozásához
Kétféleképpen hozhatunk létre PPT-t az egyik a „Korai kötés”, a másik a „Késői kötés” használatával. Megmutatjuk, hogyan készíthet PowerPoint prezentációt az „Early Binding” technikával .
Az excelből általában diagramokat és a diagramok értelmezése alapján készítünk előadásokat. Tehát erre a célra létrehoztam néhány egyszerű excel-diagramot és értelmezést ugyanabban a munkalapon.
1. lépés: Indítsa el a szubrutint a VBA-ban. A PowerPoint eléréséhez most már engedélyeztük a PowerPoint objektum modellt a korábbi lépésekben. Ennek eléréséhez a változót PowerPoint-ként kell deklarálnunk. Alkalmazás.
Kód:
Sub PPT_Example () Dim PPApp mint PowerPoint. Alkalmazás vége Sub
2. lépés: A prezentáció PowerPointba történő felvételéhez egy változót PowerPoint-ként kell deklarálnunk.
Kód:
Dim PPPresentation mint PowerPoint. Prezentáció
3. lépés: Miután hozzáadta a prezentációt a PowerPointhoz, hozzá kell adnunk a Diát. A változó PowerPoint.Slide-ként való deklarálása
Kód:
Dim PPSlide mint PowerPoint. Slide
4. lépés: Miután a diát hozzáadta a PowerPointhoz, ki kell használnunk a PowerPoint alakjait, azaz a szövegdobozokat. Változó PowerPoint.Shape-ként való deklarálása
Kód:
Dim PPShape mint PowerPoint. Alak
5. lépés: Most, hogy elérjük a munkalap összes diagramját, deklarálnunk kell a változót Excel-ként. ChartObjects.
Kód:
Dim PPCharts As Excel.ChartObject
Ok, az eljárás megkezdéséhez ezek a változók elegendőek.
6. lépés: Most el kell indítanunk a PowerPointot az Excelből. Mivel ez egy külső objektum, ezt új PowerPointként kell beállítanunk.
Kód:
Állítsa be a PPApp = New PowerPoint.Application alkalmazást
Ezzel elindítja az új PowerPoint programot az Excelből.
7. lépés: Most a PPApp változó megegyezik az általunk elindított PowerPoint-tal. Most tegye láthatóvá ezt a PowerPoint-ot, és maximalizálja az ablakot.
Kód:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
Ebben a pillanatban csak futtassa a kódot az F5 billentyűvel vagy manuálisan. Látnia kell az alábbihoz hasonlóan elindított PowerPoint alkalmazást.
8. lépés: Most hozzá kell adnunk egy prezentációt az általunk elindított PowerPoint alkalmazáshoz.
Kód:
Állítsa be a PPPresentation = PPApp.Presentations.Add
Most látnunk kell a PowerPoint bemutatót, mint ez.
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
