VBA：グラフ軸を更新するセルを更新する

Question

グラフの軸をいくつかのグラフで自動更新するコードを記述しようとしています。セルAM5には=D7が含まれていますが、AM5が正しい値に更新されているにもかかわらず、グラフの軸が更新されていないという問題があると思います。

AM5を選択し、F2キーを押しながら変更せずにEnterキーを押すと、グラフの軸が更新されるため、値が更新されてもセルAM5を更新する必要があります。

以下のコードの前に適用されるコードAM & ANをリフレッシュする、つまりすべてのセルに対してF2 + Enterキーを押すことをシミュレートするコードを探しています。

グラフの軸を自動更新するコードは次のとおりです。

Private Sub Worksheet_Change(ByVal Target As Range) 

' Location1 plots 
    With Worksheets("Location1_Plots").ChartObjects("ABC48hr").Chart 
    Select Case Target.Address 
     Case "$AM$6" 
     .Axes(xlCategory).MaximumScale = Target.Value 
     Case "$AM$5" 
     .Axes(xlCategory).MinimumScale = Target.Value 
     Case "$AN$6" 
     .Axes(xlValue).MaximumScale = Target.Value 
     Case "$AN$5" 
     .Axes(xlValue).MinimumScale = Target.Value 
    End Select 
    End With 
    With Worksheets("Location_Plots").ChartObjects("ABC5Day").Chart 
    Select Case Target.Address 
     Case "$AM$12" 
     .Axes(xlCategory).MaximumScale = Target.Value 
     Case "$AM$11" 
     .Axes(xlCategory).MinimumScale = Target.Value 
     Case "$AN$12" 
     .Axes(xlValue).MaximumScale = Target.Value 
     Case "$AN$11" 
     .Axes(xlValue).MinimumScale = Target.Value 
    End Select 
    End With 
End Sub 

Answer 1

Application.CalculateFullRebuildお手伝いがあります。 linkを参照してください。メソッドを終了する前に配置します。