CODE-SCHNIPSEL

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