|
質問させてください。
Sub Macro1()
Range("A1:B7").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B3:C7" _
), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasLegend = False
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=4 _
, Forward:=0, Backward:=0, DisplayEquation:=True, DisplayRSquared:= _
False).Select
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
Selection.NumberFormatLocal = "0.0000000000_ "
Range("D10").Value=ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
End Sub
といった、プログラムをEXCEL2003で使用しておりました。
A1:B7に入っているデータを使用して、近似式を作成し、その近似式を読み取るという動作をさせてたいという意図でしようしておりました。
しかしながら、このたびEXCEL2007をインストールして使用していたところ。
上記に記載の
ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Text
という方法では、読み取った近似曲線の数式の桁数が5桁となってしまうようです。
(尚、グラフ上の数式表示はちゃんと10桁で表示されます)
本件、どのように対応していいのか、まったく見当がつかず、途方にくれております。どなたかお教えいただけましたら幸いです。
|
|