CurDir is not providing the location of the spreadsheet running the code.

If you want to open the PP presentation from the same location as the Excel file then change this line:
pptpath = CurDir & "MyPowerpoint.pptx"
To
pptpath = ThisWorkbook.Path & "\MyPowerpoint.pptx"