|
下記のようなデータから散布図を作成し、近似曲線の追加も行いたく、
マクロの記録から抜き出して、色々試したもののうまくいきません。
「Trendlinesクラスのselectメソッドが失敗しました」と出ます。
.selectを無くすとコンパイルエラーになるし、この近似曲線の追加の
プログラムについてまったく理解できません。
どなたかご教示願います。
------------------------------------------------
-4 -0.2
3 0.2
-12 -1.4
-1 0
5 0.6
-----------------------------------------------
Option Explicit
Sub main()
Dim garea As Range
Dim grng As Range
Dim chartObj As ChartObject
Set garea = Range("C1:H15")
Set grng = Range("A1:B5")
Set chartObj = Worksheets(1).ChartObjects.Add(Left:=garea.Left, Top:=garea.Top, Width:=garea.Width, Height:=garea.Height)
With chartObj.Chart
.ChartType = xlXYScatter
.SetSourceData Source:=grng, PlotBy:=xlLine
.HasLegend = False
.SeriesCollection(1).Trendlines.Add _
(Type:=xlLinear, Forward:=0, Backward:=0, Intercept:=0, DisplayEquation:=True, DisplayRSquared:=True).Select
End With
End Sub
|
|