how can I change charts in PPT using VBA

Question

I have the following code, which exports all my graphics to a slide in powerpoint

Dim PPTApp As PowerPoint.Application
Dim PPTPres As PowerPoint.Presentation
Dim