Classe Trendlines (Word VBA)

La classe Trendlines représente une collection de tous les objets Trendline de la série spécifiée. Pour utiliser une variable de classe Trendlines, elle doit d'abord être instanciée, par exemple


Dim trns as Trendlines
Set trns = ActiveDocument.Background.Chart.FullSeriesCollection(1).Trendlines()

For Each

Voici un exemple de traitement des éléments Trendlines dans une collection


Dim trnln As Trendline
For Each trnln In ActiveDocument.Background.Chart.FullSeriesCollection(1).Trendlines()
	
Next trnln

Add

Cette méthode crée une nouvelle courbe de tendance.

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

Les arguments suivants sont facultatifs

Type (XlTrendlineType) - Une des valeurs d'énumération qui spécifie le type de courbe de tendance.

Valeurs possibles sont

xlExponential	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y=ab^x.
xlLinear	Utilise une équation linéaire y = mx + b pour calculer le résultat des moindres carrés à l'aide de points.
xlLogarithmic	Utilise l'équation y = c ln x + b pour calculer le résultat des moindres carrés à l'aide de points.
xlMovingAvg	Utilise une séquence de moyennes calculées à partir de portions de la série de données.
xlPolynomial	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y = ax^6 + bx^5 + cx^4 + dx^3 + ex^2 + fx + g.
xlPower	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y = ax^b.

Order (XlTrendlineType) - L'ordre de courbe de tendance.

Valeurs possibles sont

xlExponential	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y=ab^x.
xlLinear	Utilise une équation linéaire y = mx + b pour calculer le résultat des moindres carrés à l'aide de points.
xlLogarithmic	Utilise l'équation y = c ln x + b pour calculer le résultat des moindres carrés à l'aide de points.
xlMovingAvg	Utilise une séquence de moyennes calculées à partir de portions de la série de données.
xlPolynomial	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y = ax^6 + bx^5 + cx^4 + dx^3 + ex^2 + fx + g.
xlPower	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y = ax^b.

Period (XlTrendlineType) - La période de la courbe de tendance.

Valeurs possibles sont

xlExponential	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y=ab^x.
xlLinear	Utilise une équation linéaire y = mx + b pour calculer le résultat des moindres carrés à l'aide de points.
xlLogarithmic	Utilise l'équation y = c ln x + b pour calculer le résultat des moindres carrés à l'aide de points.
xlMovingAvg	Utilise une séquence de moyennes calculées à partir de portions de la série de données.
xlPolynomial	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y = ax^6 + bx^5 + cx^4 + dx^3 + ex^2 + fx + g.
xlPower	Utilise une équation pour calculer le résultat des moindres carrés à l'aide de points, par exemple y = ax^b.

Forward (Long) - Nombre de périodes (ou unités sur un graphique à nuages de points) que la courbe de tendance étend en prospective.

Backward (Long) - Nombre de périodes (ou unités sur un graphique à nuages de points) que la courbe de tendance étend en rétrospective.

Intercept (Trendline) - L'interception de la courbe de tendance.

DisplayEquation - Boolean

DisplayRSquared - Boolean

Name - String

Count

Renvoie le nombre d'objets dans la collection.


Dim lngCount As Long
lngCount = ActiveDocument.Background.Chart.FullSeriesCollection(1).Trendlines.Count

Item

Cette méthode renvoie un seul objet d'une collection.

Item (Index)

Index: Numéro d'index de l'objet.


With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.SeriesCollection(1).Trendlines.Item(1) 
 .Forward = 5 
 .Backward = .5 
 End With 
 End If 
End With