Code to reformat pivot chart

  • Thread starter Thread starter Mike Collard
  • Start date Start date
M

Mike Collard

Custom formating is lost in a pivot chart when the pivot
table is refreshed. I can record a macro to reformat each
data series to medium weight but I think it must be
possible to create a For...Each...Next loop instead.

So far have tried:-

For Each SeriesCollection In ActiveChart
Border.Weight = xlMedium
Next

Although I've got the books I can't figure out how to
write the correct code.

Could someone help please?

Thanks

Mike Collard
 
Mike -

Try this:

Dim Srs As Series
For Each Srs is ActiveChart.SeriesCollection
Srs.Border.Weight = xlMedium
Next

- Jon
 
Back
Top