01.
02.Dim chartPage As Chart
03.Dim xlCharts As ChartObjects
04.Dim myChart As ChartObject
05.Dim chartRange As Range
06.
07.xlCharts = CType(wSheet.ChartObjects, ChartObjects)
08.myChart = xlCharts.Add(5, 65, 800, 350)
09.chartPage = myChart.Chart
10.chartRange = wSheet.Range("I4", "K24")
11.
12.
13.
14.chartPage.SetSourceData(Source:=chartRange)
15.chartPage.ChartType = XlChartType.xlPie
16.
17.chartPage.HasLegend = True
