Klasse Trendlines (Word VBA)
Die Klasse Trendlines stellt eine Auflistung aller Trendline -Objekte für die angegebene Datenreihe dar. Um eine Trendlines -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim trns as Trendlines
Set trns = ActiveDocument.Background.Chart.FullSeriesCollection(1).Trendlines()
For Each
Hier ist ein Beispiel für die Verarbeitung der Trendlines -Elemente in einer Sammlung
Dim trnln As Trendline
For Each trnln In ActiveDocument.Background.Chart.FullSeriesCollection(1).Trendlines()
Next trnln
Add
Erstellt eine neue Trendlinie.
Add (Type, Order, Period, Forward, Backward, Intercept, DisplayEquation, DisplayRSquared, Name)
With ActiveDocument.InlineShapes(1)
If .HasChart Then
.Chart.SeriesCollection(1).Trendlines.Add
End If
End With
Arguments
Optional arguments
Die folgenden Argumente sind optional
Type - XlTrendlineType
Möglichen Werte sind
xlExponential | Verwendet eine Gleichung zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate (beispielsweise y=ab^x). |
xlLinear | Verwendet die lineare Gleichung y = mx + b zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate. |
xlLogarithmic | Verwendet die Gleichung y = c ln x + b zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate. |
xlMovingAvg | |
xlPolynomial | |
xlPower | Verwendet eine Gleichung zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate (beispielsweise y = ax^b). |
Order (XlTrendlineType) - Die Ordnung der Trendlinien.
Möglichen Werte sind
xlExponential | Verwendet eine Gleichung zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate (beispielsweise y=ab^x). |
xlLinear | Verwendet die lineare Gleichung y = mx + b zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate. |
xlLogarithmic | Verwendet die Gleichung y = c ln x + b zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate. |
xlMovingAvg | |
xlPolynomial | |
xlPower | Verwendet eine Gleichung zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate (beispielsweise y = ax^b). |
Period (XlTrendlineType) - Periode der Trendlinie.
Möglichen Werte sind
xlExponential | Verwendet eine Gleichung zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate (beispielsweise y=ab^x). |
xlLinear | Verwendet die lineare Gleichung y = mx + b zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate. |
xlLogarithmic | Verwendet die Gleichung y = c ln x + b zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate. |
xlMovingAvg | |
xlPolynomial | |
xlPower | Verwendet eine Gleichung zum Berechnen der Anpassung durch die Punkte nach der Methode der kleinsten Quadrate (beispielsweise y = ax^b). |
Forward (Long) - Die Anzahl der Perioden (oder Einheiten in einem Punkt (XY)-Diagramm), über die sich eine Trendlinie vorwärts erstreckt.
Backward (Long) - Die Anzahl der Perioden (oder Einheiten in einem Punkt (XY)-Diagramm), über die sich eine Trendlinie zurück erstreckt.
Intercept (Trendline) - Der Schnittpunkt der Trendlinie.
DisplayEquation - Boolean
DisplayRSquared - Boolean
Name - String
Count
Gibt die Anzahl der Objekte in der Auflistung zurück.
Dim lngCount As Long
lngCount = ActiveDocument.Background.Chart.FullSeriesCollection(1).Trendlines.Count
Item
Gibt ein einzelnes Objekt aus einer Auflistung zurück.
Item (Index)
Index: Die Indexnummer für das Objekt
With ActiveDocument.InlineShapes(1)
If .HasChart Then
With .Chart.SeriesCollection(1).Trendlines.Item(1)
.Forward = 5
.Backward = .5
End With
End If
End With