Creating PowerPoint Presentations from Excel Data – Fully Automated

Populate slides with data and charts from Excel.

Create deck and insert a slide

Sub MakeDeck()
    Dim pp As Object, pres As Object, sld As Object
    Set pp = CreateObject("PowerPoint.Application")
    pp.Visible = True
    Set pres = pp.Presentations.Add
    Set sld = pres.Slides.Add(1, 11) ' ppLayoutTitleOnly
    sld.Shapes.Title.TextFrame.TextRange.Text = "Monthly KPIs"
End Sub

Copy a chart

Charts("KPI").ChartArea.Copy
sld.Shapes.Paste.Select