Macro Error: Export to PPT

[Anonymous]

I am not a Macro person but I have this simple macro to export a chart to PPT. However, when I call the macro, the macro editor appears. I think it means there is an error in the macro. Any suggestions to fix this issue

The command that appear to be in error are:

'objPresentation.SaveAs "Sample PPT.pptx"

'objPresentation.Close

'objPPT.Quit

Here is the sample macro.

sub test
'Create ppt object
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True

Set objPresentation = objPPT.Presentations.Add
Set PPSlide = objPresentation.Slides.Add(1,11)
ActiveDocument.GetSheetObject("CH01").CopyBitmapToClipboard
PPSlide.Shapes.Paste
' Close Option 1
'objPresentation.SaveAs "Sample PPT.pptx"
'objPresentation.Close
'objPPT.Quit

' Close Option2
'PPPres.SaveAs "Frontline PPT.pptx"
'PPPres.Close
'PPApp.Quit
      
'Clean up
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
end Sub