グラフの最大値と最小値を設定する

Question

vbaを使用して2つのセルを参照してグラフの最大値と最小値を設定しようとしています。私は既にワークブックにあるこの図を参照しようとしています。次のコード：私はチャートを選択した場合

Sub ScaleAxes() 

    Dim Sht1 As Worksheet 
    Dim Sht1Name As String 
    Set Sht1 = Worksheets("Lists") 

    With Application.ActiveChart.Axes(xlValue, xlPrimary) 
     .MinimumScale = Sht1.Range("L2").Value 
     .MaximumScale = Sht1.Range("L3").Value 
    End With 

End Sub 

コードは動作しますが、私は、チャート上でクリックしたわけではない場合、それがどのように動作するかを作るのですか？事前に

おかげで、

マックス

Answer 1

は後に（自分のグラフの名前に「グラフ1」を変更）Sht1であなたのチャートの名前にMyChtObjを設定し、MyChtObj As ChartObjectを定義するためのコードを使用してください。

Option Explicit 

Sub ScaleAxes() 

    Dim Sht1 As Worksheet 
    Dim Sht1Name As String 
    Set Sht1 = Worksheets("Lists") 

    Dim MyChtObj As ChartObject 
    Set MyChtObj = Sht1.ChartObjects("Chart 1") ' <-- modify "Chart 1" to your chart's name 

    With MyChtObj.Chart.Axes(xlValue, xlPrimary) 
     .MinimumScale = Sht1.Range("L2").Value 
     .MaximumScale = Sht1.Range("L3").Value 
    End With 

End Sub