Code to reformat pivot chart

[Mike Collard]

I posted this in another forum in error - apologies.

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

 

[Tom Ogilvy]

dim sr as Series

For Each sr in ActiveChart.SeriesCollection
sr.Border.Weight = xlMedium
Next

Untested, but that would be my guess.

 

[Mike Collard]

Tom

Spot on!

Many thanks

Mike Collard

-----Original Message-----
dim sr as Series

For Each sr in ActiveChart.SeriesCollection
sr.Border.Weight = xlMedium
Next

Untested, but that would be my guess.

--
Regards,
Tom Ogilvy





.