Trendlines-Objekt (PowerPoint)

  • Artikel

Stellt eine Auflistung aller Trendline -Objekte für die angegebene Datenreihe dar.

HinwBemerkungeneise

Jedes Trendline -Objekt stellt eine Trendlinie in einem Diagramm dar. Eine Trendlinie zeigt den Trend oder die Richtung der Daten in einer Datenreihe.

Beispiel

Hinweis

[!HINWEIS] Although the following code applies to Microsoft Word, you can readily modify it to apply to PowerPoint.

Verwenden Sie die Trendlines -Methode, um der Trendlines -Auflistung zurückzugeben. Im folgenden Beispiel wird die Anzahl der Trendlinien der Datenreihe des ersten Diagramms im aktiven Dokument angezeigt.

With ActiveDocument.InlineShapes(1)

    If .HasChart Then

        MsgBox .Chart.SeriesCollection(1).Trendlines.Count

    End If

End With

Hinweis

[!HINWEIS] Zwar gilt der folgende Code für Microsoft Word, doch können Sie ihn für PowerPoint entsprechend anpassen.

Verwenden Sie die Add -Methode, um eine neue Trendlinie zu erstellen und der Datenreihe hinzuzufügen. Im folgenden Beispiel wird eine lineare Trendlinie zur ersten Datenreihe für das erste Diagramm im aktiven Dokument hinzugefügt.

With ActiveDocument.InlineShapes(1)
    If .HasChart Then
        .Chart.SeriesCollection(1) _
            .Trendlines.Add Type:=xlLinear, Name:="Linear Trend"
    End If
End With

Hinweis

[!HINWEIS] Zwar gilt der folgende Code für Microsoft Word, doch können Sie ihn für PowerPoint entsprechend anpassen.

Verwenden Sie Trendlinien (Index), wobei Index die Indexnummer der Trendlinie ist, um ein einzelnes TrendLine -Objekt zurückzugeben. Das folgende Beispiel ändert den Typ der Trendlinie der ersten Datenreihe des ersten Diagramms im aktiven Dokument. In diesem Beispiel schlägt fehl, wenn die Datenreihe keine Trendlinie aufweist.

Die Indexnummer stellt die Reihenfolge dar, in der die Trendlinien zur Datenreihe hinzugefügt wurden. Trendlines(1) stellt die erste zu den Reihen hinzugefügte Trendlinie dar und Trendlines(Trendlines.Count) ist die zuletzt hinzugefügte Trendlinie.

With ActiveDocument.InlineShapes(1)

    If .HasChart Then

        .Chart.SeriesCollection(1).Trendlines(1).Type = xlMovingAvg

    End If

End With

Siehe auch

PowerPoint-Objektmodellreferenz

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.