Доброго времени суток! Подскажите пожалуйста, не понимаю как при нажатии кнопки заставить построить диаграмму используя сводную таблицы. Если просто выделять ячейки то получаются пустые значения, а хотелось бы чтобы при добавлении новых значение она (программа) была к этому готова.
Код создания сводной таблицы
[vba]Код
Private Sub CommandButton1_Click()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Таблица5").CreatePivotTable TableDestination:="", TableName:="ТаблицаСВ"
With ActiveSheet
.Name = "Сводная База данных зарплаты"
.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
End With
With ActiveSheet.PivotTables("ТаблицаСВ")
.SmallGrid = True
.PivotFields("Заработная плата").Orientation = xlDataField
.PivotFields("Дата выдачи зарплаты").Orientation = xlRowField
.PivotFields("ФИО").Orientation = xlColumnField
End With
End Sub
[/vba]
Код создания диаграммы на лист, откуда берет данные сводная
[vba]Код
Private Sub CommandButton2_Click()
Dim myChart As Chart
'создаем объект Chart с расположением нового листа по умолчанию
Set myChart = ThisWorkbook.Charts.Add
With myChart
'назначаем объекту Chart источник данных
.SetSourceData PivotTable.ТаблицаСВ
'переносим диаграмму на "Лист1" (отдельный лист диаграммы удаляется)
.Location xlLocationAsObject, "Лист1"
End With
End Sub
[/vba]