tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルVB6.0からのExcelグラフ操作
記事No13111
投稿日: 2008/10/07(Tue) 14:55
投稿者taka
環境: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のグラフの表示範囲が変わりません。
教示よろしくお願いします。

[ツリー表示へ]
タイトルRe: VB6.0からのExcelグラフ操作
記事No13113
投稿日: 2008/10/07(Tue) 16:02
投稿者YK
こんにちは。

>    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)にも同じで良いですよ。

[ツリー表示へ]
タイトル解決しました。
記事No13114
投稿日: 2008/10/07(Tue) 17:43
投稿者taka
YKさん、有難うございました。

[ツリー表示へ]