Copy Range into Powerpoint

[slt_roopan]

HI - I'm a newbie to VBA, The code above is very useful. But I get an error in

Copy_Paste_to_PowerPoint ppApp, ppSlide, Sheet1, Sheet1.ChartObjects(1).Chart, xl_Bitmap

Error message is

Run time error 1004
Method 'ChartObjects' of object'_'worksheet' failed.


Also I have the following questions to ask
1. Do I have to use both the subroutines
2. If I use only the top one "Sub Copy_Paste_to_PowerPoint() " , the macro still works and allows me to copy the excel - but not from the range I wanted to copy.

Ref: Copy/Paste Excel Range/Chart into Powerpoint VBA

Kindly advise.