2014-04-28 49 views
0

我使用epplus创建一个线条图,默认情况下这是一条平滑的线条。我想要关闭平滑线,以便它是从点到点的直线。我使用VB,但无法找到需要更改的属性。epplus线图变化平滑线VB

Private Sub FillPostChart(objWorksheetChartPost As ExcelWorksheet, iRow2013 As Integer, iRowEnd As Integer, sChartTitle As String) 
    Dim chtPost = objWorksheetChartPost.Drawings.AddChart("PostLineChart", 65) 

    chtPost.Series.Add(ExcelRange.GetFullAddress("Data", "B" & iRow2013.ToString & ":B" & iRowEnd.ToString), ExcelRange.GetFullAddress("Data", "A" & iRow2013.ToString & ":A" & iRowEnd.ToString)).Header = "a" 
    chtPost.Series.Add(ExcelRange.GetFullAddress("Data", "D" & iRow2013.ToString & ":D" & iRowEnd.ToString), ExcelRange.GetFullAddress("Data", "A" & iRow2013.ToString & ":A" & iRowEnd.ToString)).Header = "b" 
    chtPost.Series.Add(ExcelRange.GetFullAddress("Data", "G" & iRow2013.ToString & ":G" & iRowEnd.ToString), ExcelRange.GetFullAddress("Data", "A" & iRow2013.ToString & ":A" & iRowEnd.ToString)).Header = "c" 

    chtPost.Title.Text = sChartTitle 
    chtPost.SetSize(1200, 800) 
    chtPost.DisplayBlanksAs = Chart.eDisplayBlanksAs.Gap 
End Sub 

感谢,

回答

0

工作了。下载最新版本,因为这是EPPlus中的一个错误。此外,我应该宣布chlpost为ExcelLineChart并导入Imports OfficeOpenXml.Drawing.Chart

希望这可以帮助别人。

谢谢,