タイトル : Re: VB6.0からのExcelグラフ操作 投稿日 : 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)にも同じで良いですよ。 |