|
'office2010无法创建chart,但wps2016可以正常创建,,,
Function getTrendLine(RngX As Range)
Dim iChart As Chart
Set iChart = ActiveSheet.Shapes.AddChart2(240, xlXYScatter).Chart
iChart.SetSourceData Source:=RngX
Dim iTrendline As Trendline
Set iTrendline = iChart.FullSeriesCollection(1).Trendlines.Add
Dim TrendLineType, TrendLineEqu, TrendLineRS, TrendLineStr
With iTrendline
.Type = xlPolynomial
.Order = 3
.DisplayRSquared = True
.DisplayEquation = True
.DataLabel.Select
TrendLineStr = Selection.Text
TrendLineEqu = Split(TrendLineStr, " ")(0)
TrendLineRS = Split(TrendLineStr, " ")(1)
.DisplayRSquared = False
.DisplayEquation = False
End With
iChart.Parent.Delete
getTrendLine = TrendLineEqu
End Function
'--------------------------------
|
评分
-
2
查看全部评分
-
|