unable to export chart to PPT using macro ?

[bell_byloli]

hello , i am unable to export to an existing PPT , which already contains a chart and text box, i want to export one chart from the Qlikview sheet and paste it in a perticular loaction on the existing ppt.

sub ExportPPT_PPT()

item11 = "CH183"

set PPPres = objPPT.Presentations.Open("c:\Exportfromqlikview.pptx")

objPPT.Visible = True

  ActiveDocument.Sheets("SH36").Activate

  ActiveDocument.GetApplication.WaitForIdle

        set PPSlide = PPPres.Slides.open()

  'PPSlide.Shapes(1).Delete ' removes the title

  'PPSlide.Shapes(1).Delete ' removes the text box

        ActiveDocument.GetSheetObject(item11).CopyBitmapToClipboard

  copy_to_ppt  30,30

Set PPSlide = Nothing

Set PPPres = Nothing

Msgbox("Export Finished")

end sub

the above code just opens the existing ppt from C drive, using funtion to copy "copy_to_ppt". how can i get to export and paste the chart on a perticular location ?