Excel VBA – 更新XY散点图的最大比例的错误

我有一个代码，当用户点击一个button时，需要更改图表的比例。 但是，代码不适用于最后使用的行的最大比例。 以下是代码：

Option Explicit Sub ScaleAxes() Dim LastRow, LastRow2 As Long Dim ws As Worksheet Set ws = ActiveChart.Parent.Parent With ActiveChart.Axes(xlCategory, xlPrimary) LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row .MaximumScale = LastRow .MinimumScale = ActiveSheet.Range("A2").Value End With End Sub 

在下面的图片是从我的数据生成的graphics是功率与频率。 频率范围是1.12 GHz至1.45 GHz。

在我应用上面的代码之后，图表改变如下：

正如您在图片中看到的那样，1.12 GHz的最小比例尺正在工作，但不是最大比例尺。 代码有什么问题吗？

非常感谢你。

Answer 1

问题是LastRow是最后一行的编号。 我假设你想要最后一个单元格的值。

 .MaximumScale = ws.Cells(LastRow, 1).Value