[Excel] [VBA]如何在图表中绘制线条？

Question

请查看此图片以获得我的明确问题：

Answer 1

Sub Tester()
    Dim s, d

    d = #4/18/2011# * 1 ''a bit of a hack, since I could figure out how to plot a date directly
    With ActiveSheet.ChartObjects("Chart 1").Chart 'adjust to suit

        Set s = .SeriesCollection.NewSeries()
        With s
            .Name = ""
            .XValues = Array(d, d)
            .Values = Array(90, 0)
            .MarkerStyle = xlMarkerStyleNone
            .Border.Color = vbRed
        End With

    End With

End Sub

Answer 2

Excellll的答案不完整。如果您只是将此数据添加到显然是LINE图表的位置，则它不会出现在预期的位置。您必须将添加的系列转换为XY图表系列（右键单击系列，图表类型）。

此外，你的线路在4/17和4/18之间，所以你需要在4/17中午使用X值，即4/17/11 12:00。

以下是一系列有关向Excel图表添加行的文章： http://peltiertech.com/Excel/Charts/AddLine.html

此外，删除图例条目是通过选择图例条目的文本并按Delete键来完成的。这只需要在图例条目上单击两次，而不是双击。

Answer 3

如果您不介意工作簿中的杂乱，可以使用以下内容填充四个单元格：

4/18/11     0
4/18/11    90

使用此数据向图表添加新系列。如果您不希望新系列显示在图表图例中，请双击图例中的红色系列名称，然后按“删除”。