如何在图中绘制一条线？

请查看这个图片来得到我清楚的问题：

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图表系列（右键单击系列，图表types）。

另外，你的线在4/17和4/18之间，所以你需要在4/17作为X值，即4/17/11 12:00。

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

此外，删除图例条目是通过select图例条目的文本，然后按删除。 这需要两个单击图例条目，而不是一个双击。

Answer 3

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

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

用这个数据添加一个新的系列到图表。 如果您不希望新图像显示在图例中，则双击图例中的红色系列名称，然后按“删除”。