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 

をそしてあなたがLastRow値を取得する際ws参照を使用します。

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