Короче, воркэраунд:
на самом деле, при обновлении сводной диаграммы слетает не всё форматирование, а только относящееся к рядам. Поэтому обход такой: сбрасываем форматирование, запускаем запись макроса, устанавливаем нужные форматы
рядов данных (только их!). Из получившегося макроса берём нужный код. В макросе запишется установка всех свойств, но на самом деле нужно менять только то, что нужно менять (каламбур), остальное будет дефолтным.
Мой код (на листе - 7 диаграмм)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Private Sub workbook_open()
Call update_diagrams
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
Call update_diagrams
End Sub
Private Sub update_diagrams()
With Worksheets("Диаграммы - Продукт")
' значения 3-го показателя должны быть отложены по вспомогательной оси
.ChartObjects( 1 ).Chart.SeriesCollection( 3 ).AxisGroup = 2
' на пирогЕ подписываем названия категорий и их доли
.ChartObjects( 3 ).Chart.SeriesCollection( 1 ).ApplyDataLabels AutoText:=True, LegendKey:= _
False, HasLeaderLines:=True, ShowSeriesName:=False, ShowCategoryName:= _
True, ShowValue:=False, ShowPercentage:=True, ShowBubbleSize:=False
End With
End Sub
