Copying Excel range to existing PowerPoint file

hi guys. previously, LJMetzger helped me with this post
http://www.excelforum.com/excel-prog...via-excel.html

basically, it opens a powerpoint file in my computer and transfer data from Excel to PowerPoint. i now need to transfer a range of cells to PowerPoint in a table format. i found this link but it opens a new powerpoint file instead of an existing file.
https://www.thespreadsheetguru.com/b...point-with-vba

i tried to use this set of code:

'Copy Range from Excel
  Set rng = ThisWorkbook.ActiveSheet.Range("A1:C12")

'Copy Excel Range
  rng.Copy

'Paste to PowerPoint and position
  mySlide.Shapes.PasteSpecial DataType:=10  '10 = ppPasteOLEObject
  Set myShape = mySlide.Shapes(mySlide.Shapes.Count)

changed it slightly to:

'Paste to PowerPoint and position
  pptSlide.Shapes.PasteSpecial DataType:=10  '10 = ppPasteOLEObject
  Set myShape = mySlide.Shapes(mySlide.Shapes.Count)

didn't work though. any ideas?

Hi benishiryo,

I think this object should be adjusted as well :

  pptSlide.Shapes.PasteSpecial DataType:=10  '10 = ppPasteOLEObject
  'Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
  Set myShape = pptSlide.Shapes(pptSlide.Shapes.Count)

thanks, karedog. that seems to have done the trick!

You are welcome, glad I can help.


Regards