Excel VBA - 更新XY散点图的最大比例时出错

Question

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

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

下图是我数据生成的图表，即Power vs Frequency。频率范围为1.12 GHz至1.45 GHz。

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

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

非常感谢。

Answer 1

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

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