環境：XP SP2, VB6.0, Excel2003

VB6.0で
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Open(excelPath)
   Set xlSheet = xlBook.Worksheets(1)
   xlSheet.Activate
   xlSheet.ChartObjects("グラフ 1").Select
   ActiveChart.Axes(xlCategory).MaximumScale = txt生産数.Text
を実行し、次に
   Set xlSheet = xlBook.Worksheets(2)
   xlSheet.Activate
   xlSheet.ChartObjects("グラフ 1").Select
   ActiveChart.Axes(xlCategory).MaximumScale = txt生産数.Text
を実行して、sheet1,sheet2に有るグラフの表示範囲を変えるソフトを製作しているのです
が、sheet2のグラフの表示範囲が変わりません。
教示よろしくお願いします。

こんにちは。

>    Set xlApp = CreateObject("Excel.Application")
>    Set xlBook = xlApp.Workbooks.Open(excelPath)
>    Set xlSheet = xlBook.Worksheets(1)
>   xlSheet.Activate
>   xlSheet.ChartObjects("グラフ 1").Select
>   ActiveChart.Axes(xlCategory).MaximumScale = txt生産数.Text
　　~~~~~~~~~~~~は止めましょう。

xlSheet.ChartObjects("グラフ 1").Chart.Axes(xlValue).MaximumScale = cdbl(txt生産数.Text)

>    Set xlSheet = xlBook.Worksheets(2)にも同じで良いですよ。

YKさん、有難うございました。