[VBA]近似曲線の数式取得

前提・実現したいこと

Excel VBAで、多項式近似を行ったデータの近似曲線の数式を取得したいのですが、うまくいきません。
ネットで調べた以下の方法を試してみました。

該当のソースコード

VBA
1Dim Cht as Chart
2Dim Fml as Variant
3
4Set Cht = ActiveSheet.Shapes.AddChart2(240, xlXYScatterLine).Chart
5
6'ここでグラフにデータを入力し、多項式近似曲線とその数式を表示
7
8Fml = Cht.FullSeriesCollection(1).Trendlines(1).DataLabel.Text

グラフ上に近似曲線の数式を表示することはできたのですが、Fmlの中身が空白で返ってきてしまいます。
参考にしたサイトでは、これで数式の文字列を取得できると記載されていたのですが、うまくいきません。

このほか、該当部分を下のコードに書き換えて試してもみましたが、結果は同じでした。

VBA
1Fml = Cht.FullSeriesCollection(1).Trendlines(1).DataLabel.Format.TextFrame2.TextRange.Characters.Text

どなたか詳しい方、教えていただければ幸いです！
よろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

https://docs.microsoft.com/ja-jp/office/vba/api/excel.datalabel(object)
より引用

近似曲線の場合、 DataLabel プロパティは近似曲線に表示されるテキストを返します。返される文字列は、方程式か R-2 乗値で、両方が表示されているときは両方が返されます。次の使用例は、数式だけが表示されるように近似曲線の文字列を設定し、 Sheet1という名前のワークシートのセル A1 にデータラベルの文字列を配置します。

With Charts("chart1").SeriesCollection(1).Trendlines(1) 
 .DisplayRSquared = False 
 .DisplayEquation = True 
 Worksheets("sheet1").Range("a1").Value = .DataLabel.Text 
End With

https://tonari-it.com/excel-vba-chart-setsourcedata/
より引用
Refreshメソッドで表示を更新する
DoEventsを二回入れる理由

数式取得前に一呼吸入れてみては？

投稿2020/02/09 12:29

編集2020/02/10 05:11