Dim chartPage As Microsoft.Office.Interop.Excel.Chart Dim xlCharts As Microsoft.Office.Interop.Excel.ChartObjects Dim myChart As Microsoft.Office.Interop.Excel.ChartObject Dim chartRange As Microsoft.Office.Interop.Excel.Range xlCharts = wks_new.ChartObjects myChart = xlCharts.Add(10, 30, 350, 250) myChart.Chart.ChartStyle = 42 chartPage = myChart.Chart chartRange = wks_new.Range("A1:I20") chartPage.SetSourceData(Source:=chartRange, PlotBy:=XlRowCol.xlRows) chartPage.ChartType = Microsoft.Office.Interop.Excel.XlChartType.xlLineMarkers
myChart.Axes(xlValue).DisplayUnit = xlThousands
xlAxisType
xlDisplayUnit
myChart.Axes(2).DisplayUnit = -3
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)