画连续点已经实现了,我要的是在原图表上加一条趋势线(多项式,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对象,不知道是不是换了马甲了,望各路圣贤告之
