Remove Error when copy Excel pie chart to power point

Hi,

I have created a macro to copy Excel Pie Chart to Powerpoint. unfortunately, there is error message once the PowerPoint Application is closed.

"
"
"
     ws.ChartObjects("Chart 1").Activate
     ActiveChart.PlotArea.Select
     ActiveChart.ChartArea.Copy

     Set myShapeRange = mySlide.Shapes.PasteSpecial(ppPasteDefault)

        With myShapeRange
            .Left = 525
            .Top = 65
            .Width = 175
            .Height = 140
            .Name = "Pie Chart"
        End With

      mySlide.Shapes("Pie Chart").Line.Visible = msoFalse
"
"
"
PPointApp.ActivePresentation.SaveAs fname, 1
PPointApp.ActivePresentation.Close
Set PPointApp = Nothing

Appreciate your help to resolve the problem

error.jpg

here is my workbook.

Does the the macro work except for the error?

If so, try putting

Application.DisplayAlerts = False

at the very begining. Just be sure to switch it back to true at the very end.

Edit: I wasn't paying attention and typed the wrong funtion. Try the updated one.