vba - 使用 vba 绘制图表(不是图表对象，而是图表)

Question

我会尽量准确地解决我的问题，但如果您有任何问题，请提问!

所以基本上我有一列 A 充满日期(从第 1 行到第 80 行)和一列 B 充满值(股票价格，并且范围相同)。
我用这个代码创建了一个图表:

Sub Chart()
   Range(Cells(1, 1), Cells(80, 1))Select
   Range(Selection, Selection.Offset(0, 1)).Select
   Set rSource=selection
   ActiveChart.SetSourceData Source:=rSource, PlotBy:=xlColumns
   ActiveChart.Location Where:=xlLocationAsNewSheet
end sub

所以这不是图表对象，而是新工作表上的新图表(我这么说是因为我在这个主题上读到的所有内容都是处理图表对象，而不是单独处理工作表中的图表)。
现在我需要的是在两个日期之间画一条水平线(一条支持线)。
例如，我需要在 01/01/2013(第 1 行)和 06/25/2013(第 80 行)之间画一条线。
该线必须保持在 y 轴上的同一水平(这就是我们所说的水平线 :) )在 01/01/2013 的股票价格水平。

我试过了:

Sub supportline()
Dim CoordA As Variant
CoordA = [a1:b80]
ActiveChart.Shapes.AddLine(CoordA(1, 1), CoordA(1, 2), CoordA(80, 1), CoordA(80, 2)).Select
end sub

但这条线没有画在我想要的地方。我认为存在比例问题，但我不知道如何获得准确的坐标。

非常感谢您的时间和帮助

编辑 (06/11/2013)
我已经简化了数据库来说明我的问题: http://cjoint.com/?CFksHluf0VD我试图在两个日期之间划一条线(01/01/2013 和 16/01/2013)

如果您下载此文件，您将在 VBA 部分看到: 1/Test1 :我尝试制作一条线来链接图表的 2 个点:如果您启动 sub，您将看到该线已绘制，但是在错误的比例和错误的位置 2/测试 2:我试图在两点之间画一条水平线，但这根本不起作用

测试 2 是我需要为我的原始项目做的事情(从一个日期到另一个具有相同 y 值的水平线)

Answer 1

ActiveChart.SeriesCollection(1).Select

With Selection.Format.Line

.Visible = msoTrue
//add line style etc

End with

然后使用您的 select 语句来选择您想要加入的点。

如果您查看此链接，我会认为您会发现它最有用

VBA 控制的折线图行的条件格式

http://peltiertech.com/WordPress/conditional-formatting-of-lines-in-an-excel-line-chart-using-vba/

Stack Overflow 上的另一个问题

Excel VBA - How do you set line style for chart series?

针对您的评论，请参阅此问题的答案。它提供了使用图表的一些很好的解释(在这种情况下是 vb.net)

Chart: Show more value descriptions on X-Axis

和 MSDN 的链接 re this

http://msdn.microsoft.com/en-us/library/system.windows.forms.datavisualization.charting.chart.aspx