Excel VBA - 更新圖表比例中的錯誤

Question

我找到了更新最大和最小比例圖表的方法。我調整了代碼以找到最後一行的最大比例值。下面是代碼：

Sub ScaleAxes() 

Dim LastRow, LastRow2 As Long 

    With ActiveChart.Axes(xlCategory, xlPrimary) 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    .MaximumScale = LastRow 
    .MinimumScale = ActiveSheet.Range("A2").Value 
    End With 
    With ActiveChart.Axes(xlValue, xlPrimary) 
    LastRow2 = .Cells(.Rows.Count, "B").End(xlUp).Row 
    .MaximumScale = LastRow2 
    .MinimumScale = ActiveSheet.Range("B2").Value 
    End With 
End Sub 

但是，我得到「對象不支持此屬性或方法」錯誤。我不知道哪部分我的代碼是錯誤的。希望你們能幫助我。

Answer 1

.Cells不是Axes類的With聲明和中的屬性讀取你想要的時候，很可能你正試圖獲得該圖是在工作表的Cells屬性訪問的Axes該屬性。要到工作表的引用可以使用：

Dim ws As Worksheet 

Set ws = ActiveChart.Parent.Parent 

然後使用ws參考，當你得到LastRow值：

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 
    With ActiveChart.Axes(xlValue, xlPrimary) 
     LastRow2 = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row 
     .MaximumScale = LastRow2 
     .MinimumScale = ActiveSheet.Range("B2").Value 
    End With 

End Sub