Excel VBA PowerPoint
Pomocí VBA můžeme automatizovat práci, kterou děláme pro PowerPoint, ale nejprve pro použití kódu nebo úryvků VBA pro práci v PowerPointu nejprve projděte možnosti zabezpečení v aplikaci PowerPoint, abyste povolili všechna makra, a pak můžeme použít odkaz na PowerPoint VBA pro makra v MS PowerPoint.
Krása VBA spočívá v tom, že můžeme odkazovat na další produkty společnosti Microsoft, jako jsou „Microsoft Word“ a „Microsoft PowerPoint“. Sestavy obvykle vytváříme v aplikaci Excel a poté vytváříme prezentace v PowerPointu. Všichni uživatelé aplikace Excel obvykle tráví značné množství času přípravou prezentace z dat a zpráv aplikace Excel. Pokud trávíte spoustu času přípravou prezentací aplikace PowerPoint, tento výukový program vám ukáže, jak vytvořit prezentaci PowerPoint z aplikace Excel pomocí kódování VBA.
Povolit Powerpoint Object Model
Krok 1: Otevřete editor VBA a poté přejděte na Nástroje a odkazy.
Krok 2: Nyní uvidíte všechny odkazy na projekt VBA. Přejděte dolů a vyberte „Objektová knihovna Microsoft PowerPoint 15.0“.
Krok 3: Klikněte na, OK. Nyní můžeme přistupovat k aplikaci PowerPoint z aplikace Excel.
Výukový program VBA k vytvoření prezentace PowerPoint
Můžeme vytvořit PPT dvěma způsoby, a to pomocí „Early Binding“ a druhého pomocí „Late Binding“. Ukážeme vám, jak vytvořit prezentaci PowerPoint pomocí techniky „Early Binding“ .
Obvykle z aplikace Excel připravujeme prezentace založené na grafech a interpretaci grafů. Za tímto účelem jsem tedy vytvořil několik jednoduchých grafů a interpretací aplikace Excel ve stejném listu.
Krok 1: Spusťte podprogram ve VBA. Nyní pro přístup k aplikaci PowerPoint jsme již aktivovali objektový model aplikace PowerPoint v dřívějších krocích, nyní. Abychom k tomu měli přístup, musíme deklarovat proměnnou jako PowerPoint.Application.
Kód:
Sub PPT_Example () Dim PPApp jako PowerPoint.Application End Sub
Krok 2: Chcete-li přidat prezentaci do aplikace PowerPoint, musíme deklarovat proměnnou jako PowerPoint.Presentation.
Kód:
Dim PPPresentation as PowerPoint.Presentation
Krok 3: Po přidání prezentace do aplikace PowerPoint musíme přidat snímek. Deklarovat proměnnou jako PowerPoint.Slide
Kód:
Dim PPSlide as PowerPoint.Slide
Krok 4: Jakmile je snímek přidán do aplikace PowerPoint, musíme v aplikaci PowerPoint použít tvary, tj. Textová pole. Deklarovat proměnnou jako PowerPoint.Shape
Kód:
Dim PPShape jako PowerPoint.Shape
Krok 5: Nyní, abychom měli přístup ke všem grafům v listu, musíme deklarovat proměnnou jako Excel.ChartObjects.
Kód:
Dim PPCharts jako Excel.ChartObject
Dobře, k zahájení řízení stačí tyto proměnné.
Krok 6: Nyní musíme spustit PowerPoint z Excelu. Jelikož se jedná o externí objekt, musíme to nastavit jako nový PowerPoint.
Kód:
Nastavte PPApp = New PowerPoint.Application
Tím se spustí nový PowerPoint z aplikace Excel.
Krok 7: Nyní se proměnná PPApp rovná aplikaci PowerPoint, kterou jsme spustili. Nyní zviditelněte tento PowerPoint a maximalizujte okno.
Kód:
PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized
V tuto chvíli stačí spustit kód pomocí klávesy F5 nebo ručně. Měla by se zobrazit spuštěná aplikace PowerPoint jako níže.
Krok 8: Nyní musíme přidat aplikaci do aplikace PowerPoint, kterou jsme spustili.
Kód:
Nastavit PPPresentation = PPApp.Presentations.Add
Nyní bychom měli vidět takovou prezentaci aplikace PowerPoint.
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
