タイトル | : Re: VB.NETでExcelを制御する方法が分かりません。 |
記事No | : 609 |
投稿日 | : 2004/01/11(Sun) 14:30 |
投稿者 | : marks |
初めまして。 私は、C#&VB6使いで、VB.netはわからないのですが、VB6の場合、
Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets.Add ... 略 ... Dim MyChart As ChartObject Dim line As String '表示位置・グラフの大きさを指定して '新しい埋め込みグラフを作成します。 Set MyChart = xlSheet.ChartObjects.Add(10, 100, 600, 330) With MyChart.Chart '散布グラフを指定 .ChartType = xlXYScatter 'データ設定 .SeriesCollection.NewSeries .SeriesCollection(1).XValues = xlSheet.Range("A2:A12") .SeriesCollection(1).Values = xlSheet.Range("B2:B12")
'作業中のシートにグラフを表示 .Location xlLocationAsObject, xlSheet.Name '近似式の係数取得 .SeriesCollection(1).Select .SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=3 _ , Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:=True).Select line = MyChart.Chart.SeriesCollection(1).Trendlines(1).DataLabel.Text
End With という様に行いました。lineに近似式が入ります。あとは、splitで切り出すなりしてください。 こいった場合、Excel上で操作をマクロに保存して、そのマクロをそのままVBに移植すれば 簡単です。VBもVBAも似たようなものですし。
|