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 ?
