使用宏在 Excel 图表中创建水平线

Question

在工作中，我制作了一个宏来格式化和绘制来自测试我们制造的零件的数据。这些值必须在一定范围内，因此我想在图表中添加线条来指示公差限制的位置。

例如，一个参数是某一信号的电压值。它必须在 0.271 和 0.451 之间才能符合规格，因此我想在该图表上的这些值处添加线条。

其他图表测量不同的事物并且具有不同的值，但基本原理是相同的。

每个信号的数据点数量并不相同，但通常都很大，每个信号大约有几千个。

我在互联网上找到了几个不同的选项，涉及绘图工具或向图表添加新的数据系列，但我不太熟悉 Excel 宏的这些方面。事实上，我认为我找不到第一次找到数据系列想法的页面。

Answer 1

每条线推出一个新系列是最好的方法。

 'add a line series with line but no markers
    Sub AddLineSeries(cht As ChartObject, sName As String, xvals, _
                       yvals, SeriesColor As Long)
        Dim s As Series
        Set s = cht.Chart.SeriesCollection.NewSeries
        With s
            .Name = sName
            .Values = yvals
            .XValues = xvals
            .MarkerBackgroundColor = xlNone
            .MarkerForegroundColor = SeriesColor
            .MarkerStyle = xlMarkerStyleNone
            With .Border
                .Weight = xlThin
                .Color = SeriesColor
            End With
        End With
    End Sub

用法（为每个截止点添加一行）：

'cht is the chart object
'minX/maxX are x-axis values you want to plot the line for
'qcMin/Max are the y-axis values for your lower/upper cut-offs
'Array() just creates an array of values to pass to the chart for plotting, since
'   we're not using values from a worksheet for this series
AddLineSeries cht, "QC Min", Array(minX, maxX), Array(qcMin, qcMin), _
              RGB(255, 0, 0)
AddLineSeries cht, "QC Max", Array(maxX, maxX), Array(qcMax, qcMax), _
              RGB(255, 0, 0)

Answer 2

假设您使用的是 XY 散点图，只需创建几个数据点并将其添加为新系列。例如，输入 A1:B6 中所示的数据，然后将整个范围添加为一个系列。你会得到两条线。显然，X 和 Y 值应该根据原始数据计算得出。