AW: Konstanten von Trendfunktionen berechnen
20.08.2008 21:16:38
Trendfunktionen
Hallo Peter,
hier ein Bsp (mehr oder weniger aus dem Archiv). Den String kannst du dir sicher selbst aufsplitten.
Grüße
Christian
Option Explicit
Sub GetTrendline()
Dim i%, j%, k%, strMsg$
Dim ch As Chart, sc As Series, tl As Trendline
Dim blnEq As Boolean, blnRSq As Boolean
With ActiveSheet
For i = 1 To .ChartObjects.Count
Set ch = .ChartObjects(i).Chart
For j = 1 To ch.SeriesCollection.Count
Set sc = ch.SeriesCollection(j)
For k = 1 To sc.Trendlines.Count
Set tl = sc.Trendlines(k)
blnEq = tl.DisplayEquation
blnRSq = tl.DisplayRSquared
If Not blnEq Then tl.DisplayEquation = True
If blnRSq Then tl.DisplayRSquared = False
strMsg = strMsg & vbLf & _
"Datenreihe:" & vbTab & sc.Name & vbLf & _
"Trendlinie:" & vbTab & tl.Name & vbLf & _
"Gleichung:" & vbTab & tl.DataLabel.Text & vbLf
tl.DisplayEquation = blnEq
tl.DisplayRSquared = blnRSq
Next
Next
Next
End With
MsgBox strMsg
End Sub