Excel VBA PowerPoint
Met behulp van VBA kunnen we het werk dat we doen voor PowerPoint automatiseren, maar om eerst VBA-code of -fragmenten te gebruiken om in PowerPoint te werken, doorloopt u eerst de beveiligingsopties in PowerPoint om alle macro's in te schakelen en vervolgens kunnen we PowerPoint VBA-referentie gebruiken voor macro's in MS Power Point.
Het mooie van VBA is dat we kunnen verwijzen naar andere Microsoft-producten zoals "Microsoft Word" en "Microsoft PowerPoint". We maken meestal rapporten in Excel en maken vervolgens PowerPoint-presentaties. Alle Excel-gebruikers besteden gewoonlijk een aanzienlijke hoeveelheid tijd aan het voorbereiden van de presentatie op basis van Excel-gegevens en -rapporten. Als u veel tijd besteedt aan het voorbereiden van PowerPoint-presentaties, laat deze tutorial u zien hoe u een PowerPoint-presentatie kunt maken vanuit Excel zelf met behulp van VBA Coding.
Schakel Powerpoint-objectmodel in
Stap 1: Open VBA-editor en ga vervolgens naar Tools en verwijzingen.
Stap 2: Nu ziet u alle verwijzingen naar het VBA-project. Scroll naar beneden en selecteer "Microsoft PowerPoint 15.0 Object Library".
Stap 3: Klik op Ok. Nu hebben we toegang tot PowerPoint vanuit Excel.
VBA-zelfstudie om PowerPoint-presentatie te maken
We kunnen PPT op twee manieren creëren door "Early Binding" te gebruiken en een andere door "Late Binding" te gebruiken. We laten u zien hoe u een PowerPoint-presentatie maakt met behulp van de "Early Binding" -techniek .
U kunt deze VBA PowerPoint Excel-sjabloon hier downloaden - VBA PowerPoint Excel-sjabloonMeestal bereiden we vanuit Excel presentaties voor op basis van grafieken en interpretatie van de grafieken. Dus voor dit doel heb ik enkele eenvoudige Excel-grafieken en interpretaties gemaakt in hetzelfde werkblad.
Stap 1: Start de subroutine in vba. Om toegang te krijgen tot PowerPoint hebben we het PowerPoint-objectmodel in de eerdere stappen al ingeschakeld, om hier toegang toe te krijgen, moeten we de variabele declareren als PowerPoint.Application.
Code:
Sub PPT_Example () Dim PPApp As PowerPoint.Application End Sub
Stap 2: Om de presentatie aan PowerPoint toe te voegen, moeten we een variabele declareren als PowerPoint.Presentation.
Code:
Dim PPPresentation As PowerPoint.Presentation
Stap 3: Nadat we de presentatie aan PowerPoint hebben toegevoegd, moeten we Slide toevoegen. Om de variabele aan te geven als PowerPoint.Slide
Code:
Dim PPSlide als PowerPoint.Slide
Stap 4: Zodra de dia aan PowerPoint is toegevoegd, moeten we gebruik maken van vormen in de PowerPoint, dwz tekstvakken. Om een variabele aan te geven als PowerPoint.Shape
Code:
Dim PPShape als PowerPoint.Shape
Stap 5: Om toegang te krijgen tot alle grafieken in het werkblad, moeten we de variabele declareren als Excel.ChartObjects.
Code:
Dim PPCharts als Excel.ChartObject
Ok, om de procedure te beginnen zijn deze variabelen voldoende.
Stap 6: Nu moeten we PowerPoint starten vanuit Excel. Omdat het een extern object is, moeten we dit instellen als een nieuw powerpoint.
Code:
Stel PPApp = New PowerPoint.Application in
Hiermee wordt de nieuwe PowerPoint vanuit Excel gestart.
Stap 7: Nu is de variabele PPApp gelijk aan de PowerPoint die we hebben gelanceerd. Maak nu deze PowerPoint zichtbaar en maximaliseer het venster.
Code:
PPApp.Visible = msoC Waar PPApp.WindowState = ppWindowMaximized
Voer op dit moment gewoon de code uit met de F5-toets of handmatig, u zou de PowerPoint-app moeten zien gelanceerd zoals de onderstaande.
Stap 8: Nu moeten we een presentatie toevoegen aan de PowerPoint-app die we hebben gelanceerd.
Code:
Stel PPPresentation = PPApp.Presentations.Add in
Nu zouden we de PowerPoint-presentatie als volgt moeten zien.
Stap 9: Na het toevoegen van de presentatie moeten we een dia toevoegen.
Code:
Stel PPSlide = PPPresentation.Slides.Add (1, ppLayoutTitleOnly)
Dit zal nu de titeldia toevoegen zoals hieronder.
Stap 10: Nu we meer dan één diagram in het werkblad hebben, moeten we elk diagram doorlopen en in de presentatie plakken. Hieronder vindt u de code om de grafiek te kopiëren en te plakken, evenals de interpretatie.
Hieronder vindt u de volledige code voor u.
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 
