问一个OWC的问题,大家肯定画过曲线图(趋势图),但可不可以在已有曲线图的基础上,在Y轴再画一条水平线,也就是警戒线,可以吗,怎么做呢?

Question

问一个OWC的问题,大家肯定画过曲线图(趋势图),但可不可以在已有曲线图的基础上,在Y轴再画一条水平线,也就是警戒线,可以吗,怎么做呢?

Answer 1

在EXCEL中能做吗？如果能做找到相应的属性，应该差不多！

Answer 2

我是用的传入字符串数字做为数据源的。
先算出那个禁戒值，然后人为构造这条线的数据序列加到字符串中就可以了。
在EXCEL中一样。你把对应的值存入EXCEl中再读出就可以了。

Answer 3

Dim strCategory As String = "1" + ControlChars.Tab + "2" + ControlChars.Tab _
     + "3" + ControlChars.Tab + "4" + ControlChars.Tab + "5" + ControlChars.Tab _
     + "6" + ControlChars.Tab
  Dim strValue As String = "120" + ControlChars.Tab + "8" + ControlChars.Tab _
        + "4" + ControlChars.Tab + "10" + ControlChars.Tab + "12" + ControlChars.Tab _
        + "6" + ControlChars.Tab
 '添加一个series
        objChart.SeriesCollection.Add(0)
 ''?定series的名字
        objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimSeriesNames, ChartSpecialDataSourcesEnum.chDataLiteral, strSeriesName)
 ''?定分?
        objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimCategories, ChartSpecialDataSourcesEnum.chDataLiteral, strCategory)
'?定?
objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, strValue)
'下面的警戒线警戒线警戒线警戒线警戒线警戒线警戒线警戒线警戒线警戒线
    objChart.SeriesCollection.Add(1)
        strValue = "33" + ControlChars.Tab + "33" + ControlChars.Tab _
        + "33" + ControlChars.Tab + "33" + ControlChars.Tab + "33" + ControlChars.Tab _
        + "33" + ControlChars.Tab
        objChart.SeriesCollection(1).SetData(ChartDimensionsEnum.chDimValues, ChartSpecialDataSourcesEnum.chDataLiteral, strValue)
        '?出成GIF文件.
        Dim strAbsolutePath As String = "c:\456.gif"
        objCSpace.ExportPicture(strAbsolutePath, "GIF", 600, 350)