Did not seem so hard, but every code I try and find on internet does not seem to work for me.

It already goed wrong at this :
Dim PPApp As Object

Has it something to do with my settings in Excel?

Furthermore...what would the most simple code be?
Nothing fancy. I have sheet9, 10, 12, 14, 16, 18 and 19 which have Pivot charts on them.

I just want the macro go to these sheets and copy the chart to a powerpoint presentation. 1 Chart per slide.
(maybe in future to pre-defined ppt template with already the text etc filled.
Thanks.