Automating Pivot Charts

[Qtip23]

How can I automate PivotChart without user intervention (e.g. drag and dropping fields into) once button click event occurs?

Can this be done using VBA code within a report?

Thanks,
Qtip23