散点图参考行号而不是选定的数据

编辑：问题是散点图是绘制我的数据对行号，而不是选定的X轴。 当我改变到一个线图，它做到了正确的，但我的VBA只适用于散点图，所以我需要这个graphics引用正确的数据或改变我的代码，使其工作的折线图。 我检查了数据被格式化为数字，而不是文本，但仍然没有改进。

我为工作创build了一个电子表格，其中我的同事将数据拖放到工作表中。 在包含原始数据的图表的另一张纸上生成报告。

我对每一列数据都使用了“定义名称”，这样无论数据集有多大都可以select正确的范围。 这工作得很好，每次数据改变时graphics都会自动更新。 然后我运行VBA来缩放轴，这一切都搞砸了

当我运行下面的代码时，坐标轴就像我想要的那样缩放，但是现在，不是在数据中有很好的循环，而是为每组数据显示一条水平直线。 我检查了“select数据”，一切仍然正确select，数据是一样的，我打“跑”之前，只有graphics看起来不正确。 这里是代码：

Private Sub Worksheet_Calculate() ScaleAxes End Sub Sub ScaleAxes() 'With Application.ActiveChart.Axes(xlCategory, xlPrimary) With ChartObjects(1).Chart.Axes(xlCategory, xlPrimary) .MinimumScale = ActiveSheet.Range("B26").Value .MaximumScale = ActiveSheet.Range("B25").Value .MajorUnit = 5 End With 'With Application.ActiveChart.Axes(xlValue, xlPrimary) With ChartObjects(1).Chart.Axes(xlValue, xlPrimary) .MinimumScale = ActiveSheet.Range("C26").Value .MaximumScale = ActiveSheet.Range("C25").Value .MajorUnit = 10 End With End Sub 

我真的不明白是什么问题。 数据是正确的，它在代码运行之前正确显示在图表上。 代码可以很好地适用于缩放轴，但是由于某种原因，graphics中的数据被破坏了。