は、私はこのコードが動作するように見えることはできません両方の制限

Question

のためのX軸とY軸を設定します。私はランタイムエラーが発生しています13 'タイプの不一致'。コードが示唆するように、私はZ6：Z9の範囲からX軸とY軸の値を設定したいと思います。

Sub Axis() 
    Dim Cht As ChartObject 
    Set Cht = Worksheets("Data Input & Summary").ChartObjects("Chart 2").Chart 
    With Cht.Axes(xlCategory) 
    .MaximumScale = .Range("Z7").Value 
    .MinimumScale = .Range("Z6").Value 
    End With 
    With Cht.Axes(xlValue) 
    .MaximumScale = .Range("Z9").Value 
    .MinimumScale = .Range("Z8").Value 
    End With 
End Sub 

Answer 1

通常、コードには3つのエラーがあります。あなたはChartObjectにとしてコンピュータ・ハイテック（CHT）を宣言していますが、チャートに設定

Sub AxisSomething() 

    Dim Cht As ChartObject 
    Set Cht = Worksheets(1).ChartObjects(1) 

    With Cht.Chart.Axes(xlCategory) 
     .MaximumScale = Worksheets(1).Range("Z7").Value 
     .MinimumScale = Worksheets(1).Range("Z6").Value 
    End With 

    With Cht.Chart.Axes(xlValue) 
     .MaximumScale = Worksheets(1).Range("Z9").Value 
     .MinimumScale = Worksheets(1).Range("Z8").Value 
    End With 

End Sub 

• ： は、これはのようになります方法です。
• あなたはグラフオブジェクトの.Chartを参照してください.Axesを取得するには、ChartObjectにとしてそれを宣言した場合。
• あなたが.を使用するたびに、それは上記withを指します。 .RangeはChart.Axes(xlCategory)を指すべきではありません
• 最後に、コードをStackOverflowにアップロードするときは、それを「再生産可能」にすることをお勧めします。このように、Worksheets("Data Input & Summary")のinstadはWorksheets(1)を書きます。そしてあなた自身の名前を修正してください。初めとして