Import/Export von Excel nach Powerpoint

Sub importieren()
Dim Powerpointfoliennummer As Long
Dim Pfad_der_Tabelle As String
Dim Tabellenblatt_Nummer As Long
Dim Tabellenbereich As String
Powerpointfoliennummer = 1
Pfad_der_Tabelle = "C:\Users\Raphael\Documents\gute Frage\gutefrage.xlsx"
Tabellenblatt_Nummer = 1
Tabellenbereich = "A1:J8"
Dim pptm As Object
Dim xlsx As Object
Set pptm = ActivePresentation.Slides(Powerpointfoliennummer)
Set xlsx = Workbooks.Open(FileName:=Pfad_der_Tabelle).Worksheets(Tabellenblatt_Nummer)
pptm.Shapes(1) = xlsx.Range(Tabellenbereich)
Set xlsx = Nothing
Set pptm = Nothing
End Sub