Finally found the correct links...

Both are on Jon Peltier's website:

Paste Each Embedded Chart in the Active Worksheet into a New Slide in the
Active Presentation
http://peltiertech.com/Excel/XL_PPT.html#chartsslides

Paste Each Embedded Chart in the Active Worksheet into a New Slide in the
Active Presentation, using the Chart Title as the Slide Title
http://peltiertech.com/Excel/XL_PPT....tstitlesslides


]
"Abdul" wrote in message
oups.com...
Hello,

How I could Loop thru the chart sheeets in the activeworkbook and copy
all charts to seperate slides in powepoint and centre align the charts
in the slides

thanks