C# Excel Построить диаграмму

[regi4]

Здравствуйте, пишу программу для взаимодействия с excel.
Сделал импорт данных но не получается нарисовать диаграмму программно. Прошу помощи.
Ошибку выдает на 72 строке

[pu4koff]

Сообщение от regi4

Здравствуйте, пишу программу для взаимодействия с excel.
Сделал импорт данных но не получается нарисовать диаграмму программно. Прошу помощи.
Ошибку выдает на 61 строке

поле excelworksheet не проинициализировано, а чего-то от него хотите. Может там должно быть:

excelcells = ObjWorkSheet.get_Range("A3", "E3");

?
Со 135 строки тоже непонятно что идёт в непонятном порядке.

[regi4]

Пытаюсь сделать типо такой график, знаю что в коде другой, но в этом коде вообще другой даже не строит

[pu4koff]

private void button1_Click(object sender, EventArgs e)
        {
            Microsoft.Office.Interop.Excel.Application ObjExcel = new Microsoft.Office.Interop.Excel.Application();
            Microsoft.Office.Interop.Excel.Workbook ObjWorkBook;
            Microsoft.Office.Interop.Excel.Worksheet ObjWorkSheet;
            //Книга.
            ObjWorkBook = ObjExcel.Workbooks.Add(System.Reflection.Missing.Value);
            //Таблица.
            ObjWorkSheet = (Microsoft.Office.Interop.Excel.Worksheet)ObjWorkBook.Sheets[1];

            //Значения [y - строка,x - столбец]
            ObjWorkSheet.Cells[3, 1] = textBox1.Text;
            ObjWorkSheet.Cells[3, 2] = textBox2.Text;
            ObjWorkSheet.Cells[3, 3] = textBox3.Text;
            ObjWorkSheet.Cells[3, 4] = textBox4.Text;
            ObjWorkSheet.Cells[3, 5] = textBox5.Text;
            ObjWorkSheet.Cells[4, 5] = textBox5.Text;
            ObjWorkSheet.Cells[4, 6] = textBox6.Text;
            ObjWorkSheet.Cells[4, 7] = textBox7.Text;
            ObjWorkSheet.Cells[4, 8] = textBox8.Text;
            ObjWorkSheet.Cells[2, 1] = textBox9.Text;
            ObjWorkSheet.Cells[2, 2] = textBox10.Text;
            ObjWorkSheet.Cells[2, 3] = textBox11.Text;
            ObjWorkSheet.Cells[2, 4] = textBox12.Text;
            ObjWorkSheet.Cells[2, 5] = textBox13.Text;
            ObjExcel.Visible = true;
            ObjExcel.UserControl = true;
            //
        
                var excelcells = ObjWorkSheet.get_Range("A3", "E3");
            //И выбираем их
            excelcells.Select();
                    //Создаем объект Excel.Chart диаграмму по умолчанию
                    Excel.Chart excelchart = (Excel.Chart)ObjExcel.Charts.Add(Type.Missing,Type.Missing, Type.Missing, Type.Missing);
                    //Выбираем диграмму - отображаем лист с диаграммой
                    excelchart.Activate();
                    excelchart.Select(Type.Missing);
            //Изменяем тип диаграммы
            ObjExcel.ActiveChart.ChartType = Excel.XlChartType.xlConeCol;
            //Создаем надпись - Заглавие диаграммы
            ObjExcel.ActiveChart.HasTitle = true;
            ObjExcel.ActiveChart.ChartTitle.Text
                       = "Пример диаграммы";
            ObjExcel.ActiveChart.FullSeriesCollection(1).XValues = "=Лист1!$A$2:$E$2";
            //Меняем шрифт, можно поменять и другие параметры шрифта
            ObjExcel.ActiveChart.ChartTitle.Font.Size = 14;
            ObjExcel.ActiveChart.ChartTitle.Font.Color = 255;
            //Обрамление для надписи c тенями
            ObjExcel.ActiveChart.ChartTitle.Shadow = true;
            ObjExcel.ActiveChart.ChartTitle.Border.LineStyle
                         = Excel.Constants.xlSolid;
                    //Даем названия осей
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlCategory,
                        Excel.XlAxisGroup.xlPrimary)).HasTitle = true;
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlCategory,
                        Excel.XlAxisGroup.xlPrimary)).AxisTitle.Text = "Годы";
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlSeriesAxis,
                        Excel.XlAxisGroup.xlPrimary)).HasTitle = false;
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlValue,
                        Excel.XlAxisGroup.xlPrimary)).HasTitle = true;
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlValue,
                        Excel.XlAxisGroup.xlPrimary)).AxisTitle.Text = "Количество";
                    //Координатная сетка - оставляем только крупную сетку
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlCategory,
                       Excel.XlAxisGroup.xlPrimary)).HasMajorGridlines = true;
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlCategory,
                      Excel.XlAxisGroup.xlPrimary)).HasMinorGridlines = false;
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlSeriesAxis,
                      Excel.XlAxisGroup.xlPrimary)).HasMajorGridlines = true;
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlSeriesAxis,
                      Excel.XlAxisGroup.xlPrimary)).HasMinorGridlines = false;
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlValue,
                      Excel.XlAxisGroup.xlPrimary)).HasMinorGridlines = false;
                    ((Excel.Axis)ObjExcel.ActiveChart.Axes(Excel.XlAxisType.xlValue,
                      Excel.XlAxisGroup.xlPrimary)).HasMajorGridlines = true;
            //Будем отображать легенду и уберем строки, 
            //которые отображают пустые строки таблицы
            ObjExcel.ActiveChart.HasLegend = true;
            //Расположение легенды
            ObjExcel.ActiveChart.Legend.Position
                       = Excel.XlLegendPosition.xlLegendPositionLeft;
                    //Можно изменить шрифт легенды и другие параметры 
                    ((Excel.LegendEntry)ObjExcel.ActiveChart.Legend.LegendEntries(1)).Font.Size = 12;
                    //((Excel.LegendEntry)ObjExcel.ActiveChart.Legend.LegendEntries(3)).Font.Size = 12;
                    //Легенда тесно связана с подписями на осях - изменяем надписи
                    // - меняем легенду, удаляем чтото на оси - изменяется легенда
                    Excel.SeriesCollection seriesCollection =
                     (Excel.SeriesCollection)ObjExcel.ActiveChart.SeriesCollection(Type.Missing);
                    Excel.Series series = seriesCollection.Item(1);
                    series.Name = "Количество";
                    //Помним, что у нас объединенные ячейки, значит каждая второя строка - пустая
                    //Удаляем их из диаграммы и из легенды
                    //series = seriesCollection.Item(2);
                    //series.Delete();
                    //После удаления второго (пустого набора значений) третий занял его место
                    //series = seriesCollection.Item(2);
                    series.Name = "Годы";
                    //series = seriesCollection.Item(3);
                    //series.Delete();
                    //series = seriesCollection.Item(1);

            //Перемещаем диаграмму на лист 1
            ObjExcel.ActiveChart.Location(Excel.XlChartLocation.xlLocationAsObject, "Лист1");
                    //Получаем ссылку на лист 1
                    var excelsheets = ObjWorkBook.Worksheets;
            ObjWorkSheet = (Excel.Worksheet)excelsheets.get_Item(1);
            //Перемещаем диаграмму в нужное место
            ObjWorkSheet.Shapes.Item(1).IncrementLeft(-201);
            ObjWorkSheet.Shapes.Item(1).IncrementTop((float)20.5);
            //Задаем размеры диаграммы
            ObjWorkSheet.Shapes.Item(1).Height = 550;
            ObjWorkSheet.Shapes.Item(1).Width = 500;
             
            }

[pu4koff]

Как по мне: лучше сделайте шаблонный файл excel, а в программе открывайте его и заполняйте только данные. параметры диаграммы и т.п. легко сможете изменить без изменения программы.

[regi4]

Спасибо, вы очень помогли

[regi4]

В этой строчке ошибка

ObjExcel.ActiveChart.SeriesCollection(1).XValues = "=Лист1!$A$2:$E$2";

[pu4koff]

Сообщение от regi4

В этой строчке ошибка

ObjExcel.ActiveChart.SeriesCollection(1).XValues = "=Лист1!$A$2:$E$2";

Имя листа может другое в книге, тогда эту ссылку нужно будет изменить.