如何使用C＃在Excel中创建圆点图，折线图？

我使用这些名称空间：Excel = Microsoft.Office.Interop.Excel;和Microsoft.Office.Tools.Excel;如何使用C＃在Excel中创建圆点图，折线图？

我需要创建与许多短行，这都将是平行于x轴折线图。

我已经写好了所有需要的点，它们应该用线连接。

enter image description here

为几个类型的行y轴的值是相同的，它们不不是数字，它们是一类的名字。最终，这看起来应该是这样的： enter image description here

我试图做这在我的方式，但遇到了一些问题seriesCollection不`吨的工作也应，他画3条线，但我只能看到最后一个，2前行成为相同的点。下面是代码：

 Excel.Workbook xlWorkBook; 
     Excel.Worksheet xlWorkSheet; 
     object misValue = System.Reflection.Missing.Value; 
     Excel._Application xlApp = new Excel.Application(); 
     xlWorkBook = xlApp.Workbooks.Add(misValue); 
     xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1); 

     //add data 
     xlWorkSheet.Cells[1, 1] = 13; 
     xlWorkSheet.Cells[1, 2] = 27; 
     xlWorkSheet.Cells[1, 3] = 22; 
     xlWorkSheet.Cells[1, 4] = 22; 

     xlWorkSheet.Cells[2, 1] = 42 ; 
     xlWorkSheet.Cells[2, 2] = 35; 
     xlWorkSheet.Cells[2, 3] = 22; 
     xlWorkSheet.Cells[2, 4] = 22; 

     xlWorkSheet.Cells[3, 1] = 1; 
     xlWorkSheet.Cells[3, 2] = 10; 
     xlWorkSheet.Cells[3, 3] = 4; 
     xlWorkSheet.Cells[3, 4] = 4; 


     Excel.ChartObjects xlCharts = (Excel.ChartObjects)xlWorkSheet.ChartObjects(Type.Missing); 
     Excel.ChartObject myChart = (Excel.ChartObject)xlCharts.Add(10, 80, 300, 250); 
     Excel.Chart chartPage = myChart.Chart; 
     myChart.Select(); 

     chartPage.ChartType = Excel.XlChartType.xlXYScatterLines; 
     Microsoft.Office.Interop.Excel.Application xla = new Microsoft.Office.Interop.Excel.Application(); 
     Excel.SeriesCollection seriesCollection = chartPage.SeriesCollection(); 

     Excel.Series series1 = seriesCollection.NewSeries(); 
     series1.XValues = xlWorkSheet.get_Range("A1", "B1"); ; 
     series1.Values = xlWorkSheet.get_Range("C1", "D1"); 

     Excel.Series series2 = seriesCollection.NewSeries(); 
     series2.XValues = xlWorkSheet.get_Range("A2", "B2"); ; 
     series2.Values = xlWorkSheet.get_Range("C2", "D2"); 

     Excel.Series series3 = seriesCollection.NewSeries(); 
     series3.XValues = xlWorkSheet.get_Range("A3", "B3"); ; 
     series3.Values = xlWorkSheet.get_Range("C3", "D3");

不知道如何解决这个问题。我认为y轴不能是文字，只有数字。我想每个行都应该是另一个系列。

P.S.可以用任何必需的方式表示数字以简化工作。

UPD：这是我创造了这个点图，我已经录制的宏

Sub Dot_chart() 
' 
' 
' 

' 
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select 
    ActiveWindow.SmallScroll Down:=6 
    ActiveSheet.Shapes("Chart 2").IncrementLeft 120.8823622047 
    ActiveSheet.Shapes("Chart 2").IncrementTop 132.3529133858 
    ActiveChart.SeriesCollection.NewSeries 
    ActiveChart.FullSeriesCollection(1).Name = "=List1!$B$23" 
    ActiveChart.FullSeriesCollection(1).XValues = "=List1!$D$22:$D$23" 
    ActiveChart.FullSeriesCollection(1).Values = "=List1!$D$24:$D$25" 
    ActiveChart.SeriesCollection.NewSeries 
    ActiveChart.FullSeriesCollection(2).Name = "=List1!$B$23" 
    ActiveChart.FullSeriesCollection(2).XValues = "=List1!$E$22:$E$23" 
    ActiveChart.FullSeriesCollection(2).Values = "=List1!$E$24:$E$25" 
    ActiveChart.SeriesCollection.NewSeries 
    ActiveChart.FullSeriesCollection(3).Name = "=List1!$B$28" 
    ActiveChart.FullSeriesCollection(3).XValues = "=List1!$D$27:$D$28" 
    ActiveChart.FullSeriesCollection(3).Values = "=List1!$D$29:$D$30" 
End Sub

列表1 sheet`s名。

来源

2014-02-11 Rocketq

在尝试在代码中自动化之前，您是否已经手工制作了图表 - 来自您的数据？ – dav1dsm1th

如果您可以手动生成图表，我会在重新创建图表时记录一个宏，然后调查该宏包含的代码。这应该引导您了解您的代码需要做什么来自动生成输出。 – dav1dsm1th

@ dav1dsm1th我录制了宏 – Rocketq

经过几天的搜索，我找到了解决方案，希望对某人有用。

  Excel.Workbook xlWorkBook; 
      Excel.Worksheet xlWorkSheet; 
      object misValue = System.Reflection.Missing.Value; 
      Excel._Application xlApp = new Excel.Application(); 

      xlWorkBook = xlApp.Workbooks.Add(misValue); 
      xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1); 

     //add data 
     xlWorkSheet.Cells[1, 1] = 13; 
     xlWorkSheet.Cells[1, 2] = 27; 
     xlWorkSheet.Cells[1, 3] = 22; 
     xlWorkSheet.Cells[1, 4] = 22; 

     xlWorkSheet.Cells[2, 1] = 42 ; 
     xlWorkSheet.Cells[2, 2] = 35; 
     xlWorkSheet.Cells[2, 3] = 22; 
     xlWorkSheet.Cells[2, 4] = 22; 

     xlWorkSheet.Cells[3, 1] = 1; 
     xlWorkSheet.Cells[3, 2] = 10; 
     xlWorkSheet.Cells[3, 3] = 4; 
     xlWorkSheet.Cells[3, 4] = 4; 


     Excel.ChartObjects xlCharts = (Excel.ChartObjects)xlWorkSheet.ChartObjects(Type.Missing); 
     Excel.ChartObject myChart = (Excel.ChartObject)xlCharts.Add(10, 80, 300, 250); 
     Excel.Chart chartPage = myChart.Chart; 
     myChart.Select(); 

     chartPage.ChartType = Excel.XlChartType.xlXYScatterLines; 
     Microsoft.Office.Interop.Excel.Application xla = new Microsoft.Office.Interop.Excel.Application(); 
     Excel.SeriesCollection seriesCollection = chartPage.SeriesCollection(); 

     Excel.Series series1 = seriesCollection.NewSeries(); 
     series1.XValues = xlWorkSheet.get_Range("A1", "B1"); ; 
     series1.Values = xlWorkSheet.get_Range("C1", "D1"); 

     Excel.Series series2 = seriesCollection.NewSeries(); 
     series2.XValues = xlWorkSheet.get_Range("A2", "B2"); ; 
     series2.Values = xlWorkSheet.get_Range("C2", "D2"); 

     Excel.Series series3 = seriesCollection.NewSeries(); 
     series3.XValues = xlWorkSheet.get_Range("A3", "B3"); ; 
     series3.Values = xlWorkSheet.get_Range("C3", "D3"); 



     xlWorkBook.SaveAs(@"C:\ProgramData\RadiolocationQ\Text.xls", Excel.XlFileFormat.xlWorkbookNormal, misValue, misValue, misValue, misValue, Excel.XlSaveAsAccessMode.xlExclusive, misValue, misValue, misValue, misValue, misValue); 
     xlWorkBook.Close(true, misValue, misValue); 
     xlApp.Quit(); 

     releaseObject(xlWorkSheet); 
     releaseObject(xlWorkBook); 
     releaseObject(xlApp); 


     Process.Start(@"C:\ProgramData\RadiolocationQ\Text.xls");

来源

2014-02-16 17:41:12 Rocketq

它为我工作。你能告诉我如何改变水平轴**的值吗？因为现在它只是1,2,3,4,5 ....等等。 –

@SaurabhAgrawal请问新的问题。因为我不能帮你，所以我不再编程c＃了 – Rocketq

感谢您的回复@Rocketq –

如何使用C＃在Excel中创建圆点图，折线图？

回答

相关问题