copy excel range to existing power point vba

[jeevateddy]

Dear all,

I am looking code for copy excel range to paste in new slide on existing power point.

requesting you to kindly help me on this.

 

[Michael M]

Have a look at this site. but make sure to read ALL of the article, as there are other requirements apart from the code itself !

https://www.thespreadsheetguru.com/blog/2014/3/17/copy-paste-an-excel-range-into-powerpoint-with-vba

 

[jeevateddy]

Dear Michael,

Thanks for your reply, but I am looking code for create new slide in existing PowerPoint.

means I have a PPT saved in D drive, In this PPT i need to add new slide & paste the excel content.

Thanks in advance.

 

[Michael M]

Ok, but the link provided does that, you just need to change this

If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
          On Error GoTo 0
'Create a New Presentation
  Set myPresentation = PowerPointApp.Presentations.Add

To

Set Powerpointapp = CreateObject("Powerpoint.application")
DestinationPPT = ("C:\Test\My Powerpoint\Presentation1.pptx")'change this line to your directory
Powerpointapp.Presentations.Open (DestinationPPT

)