PowerPoint-Präsentationen aus Excel-Daten erzeugen – komplett automatisch

Status-Updates, KPI-Decks, Vertriebspräsentationen: Mit VBA erstellen Sie PowerPoint-Folien direkt aus Excel-Daten – inklusive Diagrammen, Tabellen und Bildern. Hier sind praxiserprobte Muster und ein kompletter Ablauf.

---

1) PowerPoint ansteuern (Late Binding)

Sub BuildDeck()
    Dim pp As Object, pres As Object, slide As Object
    Set pp = CreateObject("PowerPoint.Application")
    Set pres = pp.Presentations.Add
    pp.Visible = True
    
    Set slide = pres.Slides.Add(1, 1) ' ppLayoutTitle
    slide.Shapes(1).TextFrame.TextRange.Text = "KPI Überblick"
    slide.Shapes(2).TextFrame.TextRange.Text = "Erstellt am " & Format(Now, "dd.mm.yyyy")
End Sub

---

2) Diagramme/Tabellen aus Excel kopieren

Sub KopiereChartNachPPT()
    Dim pp As Object, pres As Object, slide As Object
    Set pp = CreateObject("PowerPoint.Application")
    Set pres = pp.Presentations.Add
    pp.Visible = True
    
    Sheets("Report").ChartObjects(1).Copy
    Set slide = pres.Slides.Add(1, 12) ' ppLayoutBlank
    slide.Shapes.Paste
End Sub

---

3) Praxisfall – Quartalsdeck mit 5 Folien

• Titelfolie
• KPI-Tabelle
• Umsatzdiagramm
• Top-5-Produkte (Tabelle)
• Ausblick (Text aus Zellen)

Sub QuartalsDeck()
    ' ... Daten aufbereiten ...
    ' Folien erzeugen & Inhalte einfügen
End Sub

---

4) Best Practices

• Vorlagen (Master) verwenden – Corporate Design konsistent.
• Bild-/Diagrammgrößen anpassen, Position per .Left/.Top setzen.
• Export als PDF für Versand.

---

Fazit

PPT-Decks lassen sich aus Excel heraus vollautomatisch bauen. Mit Vorlagen und sauberer Aufbereitung entstehen Präsentationen in Minuten statt Stunden.