在Excel VBA中为xlLineMarkers设置手动X值

Question

我在excel中使用VBA相对较新，但是我试图自动生成图表来跟踪学生全年的目标成绩进度。

我遇到的问题是只用两点标出一条线-年初的成绩，以及年底的位置。 我需要这条线保持不变，同时可以更新全年某些时候的进度。

我已经设法在Excel中手动创建了这样的图形，但是我不知道如何使用代码来创建图形。 该图理想情况下应如下所示

编辑：我不能发布图像。 正确的图表在第一个评估点处有一个点，在最后一个评估点处有两个点之间的一条直线

但是，我生成的图看起来更像这样

编辑：无法发布图片。 我的图表的问题在于，最初和最终成绩仅在前两个点绘制，其余范围为空白。

这是我正在使用的代码

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Progress"""
ActiveChart.SeriesCollection(1).XValues = "='GradesForGraph'!$E$2:$V$2"
ActiveChart.SeriesCollection(1).Values = Worksheets("GradesForGraph").Range(ResultsRange)
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""Target"""
ActiveChart.SeriesCollection(2).XValues = "={1,18}"
ActiveChart.SeriesCollection(2).Values = Worksheets("GradesForGraph").Range(TargetRange)

范围“ TargetRange”指的是工作表GradesForGraph中的两个单元格，这些单元格具有学生的初始成绩以及他们在年底应达到的成绩。

我尝试用仅包含值1,18的数组替换“ = {1,18}”，但无济于事（我使用1和18，因为全年有18个评估点）。

任何帮助，不胜感激。

Answer 1

在Excel折线图中，每个系列使用相同的X值。 如果为第一个系列指定它们，则无需为第二个系列指定它们。 但这也意味着您将需要该数量的Y值才能形成连续的目标线。 这意味着TargetRange需要18个具有相同目标值的单元格。

或者，您可以将目标添加为XY系列。 使用Array（0.5，18.5）的X值，因此绘制的线将超出数据点并延伸到图表的边缘。

  With ActiveChart.SeriesCollection.NewSeries
    .Name = "=""Progress"""
    .Values = Worksheets("GradesForGraph").Range(ResultsRange)
    .XValues = "='GradesForGraph'!$E$2:$V$2"
    .ChartType = xlLineMarkers
  End With
  With ActiveChart.SeriesCollection.NewSeries
    .Name = "=""Target"""
    .Values = Worksheets("GradesForGraph").Range(TargetRange)
    .ChartType = xlXYScatterLinesNoMarkers
    .AxisGroup = xlPrimary
    .XValues = Array(0.5, 18.5)
  End With