Public Sub PowerPointFolie()
    Dim shtChart As Worksheet
    Set shtChart = Application.ThisWorkbook.ActiveSheet
    Dim retVal
    Dim appPowerPoint As Object
    Dim ChartPfad As String
 
    ChartPfad = Sheets("IE").Cells(3, 2)
    shtChart.ChartObjects(1).Select
    Selection.Copy
     retVal = Shell("powerpnt.exe", 1)
    Set appPowerPoint = CreateObject(class:="PowerPoint.Application")
     appPowerPoint.presentations.Open Filename:=ChartPfad
     appPowerPoint.Visible = True
................................
End Sub