Установите оси x и y на диаграмме рассеяния Excel в C# - PullRequest
0 голосов
/ 23 апреля 2020

У меня есть такие данные на листе Excel:

15 0.5   25 0.36
20 0.32  37 0.54
35 0.33  19 0.24

Данные генерируются моим кодом и могут расширяться, так как я добавляю больше серий. Я хочу сделать диаграмму рассеяния данных с координатами x и y.

using Excel = Microsoft.Office.Interop.Excel;

    public void OpenExcel(string folder, string filename)
    {
        this.folder = folder;
        this.filename = filename;
        path = folder + @"\" + filename;

        if (File.Exists(path) != true) //if the output file does not exists, create it
        {
            var app = new Microsoft.Office.Interop.Excel.Application();
            var temp = app.Workbooks.Add();
            temp.SaveAs(path);
            temp.Close();
        }

        wb = excel.Workbooks.Open(path);
    }

    public void MakeScatterPlot(int numberofseries, int rowlenght) //we already have the data in the sheet at this point
    {
        Excel.Shape chart_shape = workSheet.Shapes.AddChart(Excel.XlChartType.xlXYScatter, 5, 5, 900, 450);
        Excel.Chart chart = chart_shape.Chart;
        Excel.Range chart_range = (Excel.Range)workSheet.Range[workSheet.Cells[1, 1], workSheet.Cells[rowlenght, (numberofseries * 2)]].Cells;
        chart.SetSourceData(chart_range, Excel.XlRowCol.xlColumns);

        for (int i = 1; i <= numberofseries; i++)
        {
           chart.SeriesCollection(i).XValues = (Excel.Range)workSheet.Range[workSheet.Cells[1, 1 + 2 * (i-1)], workSheet.Cells[rowlenght, 1]].Cells; //1, 3, 5...
           chart.SeriesCollection(i).Values = (Excel.Range)workSheet.Range[workSheet.Cells[1, 2 + 2 * (i-1)], workSheet.Cells[rowlenght, 1]].Cells; //2, 4, 6...
        }

    }

Кажется, что строка chart.SeriesCollection(i).XValues работает нормально, но я получаю ошибку, и программа останавливается, когда я пытаюсь установить y -Ось получаю ошибку: System.Runtime.InteropServices.COMException: 'Exception from HRESULT: 0x800A03EC'. Как установить значения по оси Y?

1 Ответ

0 голосов
/ 23 апреля 2020

Кажется, я только что перепутал столбцы и строки:

        int xcol = 1 + 2 * (i- 1); //1, 3, 5, 6
        int ycol = xcol++; //2, 5, 7
        chart.SeriesCollection(currentarm).XValues = (Excel.Range)workSheet.Range[workSheet.Cells[1, xcol], workSheet.Cells[rowlenght, **xcol**]].Cells;
        chart.SeriesCollection(currentarm).Values = (Excel.Range)workSheet.Range[workSheet.Cells[1, ycol], workSheet.Cells[rowlenght, **ycol**]].Cells;
...