mschart 添加趋势线

[luowin]

我用MsChart ActiveX画了个散点图（就5个点），因为要直观的看其趋势，想添加条趋势线。不知道咋弄睨，那位高人指点一二，分少再加

[Elysium]

http://blog.csdn.net/Elysium/archive/2006/11/22/1403768.aspx

[Elysium]

http://blog.csdn.net/Elysium/archive/2006/11/22/1403768.aspx

[Elysium]

可以使用GetTrendlines或者SetTrendlines试一下，看看是不是这个马甲

[luowin]

画连续点已经实现了,我要的是在原图表上加一条趋势线(多项式,3阶)进行分析/研究,在EXCEL中可手工设置的,以下是我在EXCEL中录制的宏:
Sub 宏1()
'
' 宏1 Macro
' luowin 记录的宏 2007-10-26
'A B
'23 0.01
'45 456
'-52 74
'458 786
'785 44

'
Range("A1:B5").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B5"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlPolynomial, Order:=3 _
, Forward:=0, Backward:=0, DisplayEquation:=False, DisplayRSquared:= _
False).Select '这一句就是得到3阶多项式
End Sub

我在mschart系列的接口中没有找到Trendlines对象,不知道是不是换了马甲了,望各路圣贤告之

[dyw]

http://support.microsoft.com/kb/216388/

[luowin]

没有找到GetTrendlines 或者SetTrendlines ,应该在哪个接口说明中呢？

[luowin]

看来只好自己计算多项式了，软件已搞定。散分