Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_xls2ppt.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************
'Läuft nur unter Microsoft PowerPoint Version <= 2010
Public Sub OVBAde_CreatePPTFileFromExcel()
Dim oPPTApp As Object 'Die PowerPoint Anwendung
Dim oPPTFile As Object 'Die PowerPoint Datei
Dim oPPTSlide As Object 'Eine PowerPoint Folie
'PowerPoint öffnen/starten
Set oPPTApp = CreateObject("Powerpoint.Application")
oPPTApp.Visible = True
'Neue Präsentation
Set oPPTFile = oPPTApp.Presentations.Add
'Neue Folie einfügen
Set oPPTSlide = oPPTFile.Slides.Add(1, ppLayoutBlank)
'Wert aus A1 in die überschrift eintragen
oPPTSlide.Shapes(1).TextFrame.TextRange.Text = Cells(1, 1).Value
'Hier können weitere übertragen gebaut werden ...
'Der Phantasie sind keine Grenzen gesetzt ;)
Set oPPTSlide = Nothing
Set oPPTFile = Nothing
Set oPPTApp = Nothing
End Sub