Muliple Charts from one Pivot Table

[TJonesEsq]

Debra,

many thanks for that but I was looking for a more automated way. Ther
are over 600 stores. Is there a vb code way in doing this?

Best regards

Ton

 

[Debra Dalgleish]

If you want to print a copy of the chart for each store, you could use
code similar to the following:

Sub PrintPivotCharts()
'prints a chart for each item in the page field
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Set pt = ActiveChart.PivotLayout.PivotTable
For Each pf In pt.PageFields
For Each pi In pf.PivotItems
pt.PivotFields(pf.Name).CurrentPage = pi.Name
ActiveSheet.PrintPreview 'use this line for testing
' ActiveSheet.PrintOut 'use this line for printing
Next
Next pf
End Sub