Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


20503 / 76732 ←次へ | 前へ→

【61647】近似曲線のテキストデータが読み取れない
質問  yuji  - 09/5/24(日) 15:10 -

引用なし
パスワード
   質問させてください。

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桁で表示されます)

本件、どのように対応していいのか、まったく見当がつかず、途方にくれております。どなたかお教えいただけましたら幸いです。
1 hits

【61647】近似曲線のテキストデータが読み取れない yuji 09/5/24(日) 15:10 質問
【61650】Re:近似曲線のテキストデータが読み取れない yoshi 09/5/24(日) 16:33 回答
【61653】Re:近似曲線のテキストデータが読み取れない kanabun 09/5/24(日) 21:32 発言
【61655】Re:近似曲線のテキストデータが読み取れない yuji 09/5/24(日) 23:28 お礼
【61654】Re:近似曲線のテキストデータが読み取れない kanabun 09/5/24(日) 23:01 発言

20503 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free