РЮАКХЖЮ = ActiveSheet PivotTables("Отчет")
рЮАКХЖЮ = ActiveSheet.PivotTables("Отчет")
With ActiveSheet.PivotTables("Отчет")
'
' He отображаются итоги по строкам и столбцам
'
.RowGrand = False .ColumnGrand = False
End With
'
' Определение диапазона из сводной таблицы,
' по которому строится диаграмма
'
Set Диапазон = ActiveSheet.PivotTables("Отчет").TableRangel
'
' Построение диаграммы
'
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Диапазон,
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject,
Name:="Сводная
