如何在VBA中为不同的x值（动态）添加相同的y值（来自单元格）

Question

我已经编写了一个宏来绘制各种日期的图表。例如过去1周的费用。我想在我的图表/图表中绘制一条水平线，它应该显示理想的费用（我在一个单元格中提供的值）。由于日期是动态变化的，理想费用的线索出现在一个单元格中，我不知道如何使用VBA在我的图表中创建这个系列。

Answer 1

像这样，你将数组大小增加到图表的比例，并将myIdealRange设置为你提到的单元格？

mychart.SeriesCollection.NewSeries
mychart.SeriesCollection(mychart.SeriesCollection.Count).Name = "=""ideal"""
mychart.SeriesCollection(mychart.SeriesCollection.Count).Values = Array(myIdealRange, myIdealRange, myIdealRange, myIdealRange, myIdealRange)
mychart.SeriesCollection(mychart.SeriesCollection.Count).Select
Selection.MarkerStyle = -4142
mychart.SeriesCollection(mychart.SeriesCollection.Count).Trendlines.Add