Gary,
I've just found the same problem, extremely annoying. I've got a rather crude solution, but it appears to work.
I recorded the code for putting the labels back on and put against the Chart's calculate event, thus:
Private Sub Chart_Calculate()
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, ShowSeriesName:=False, ShowCategoryName:=False, ShowValue:=True, _
ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.ChartArea.Select
End Sub
Finally I didn't put the code in a normal module but behind the actual chart in question.
The last line just unselects the series so it looks slightly less naff.
If you are selecting the changes in the pivot table and then going to the chart, I suggest using the chart's Activate event instead.
There must be a more elegant solution. Anyone?
By the way thanks to everyone for the great stuff on this board - up to now I've found everything on a search.
Chris