Klasse SeriesCollection (Word VBA)

Die Klasse SeriesCollection stellt eine Auflistung aller Series -Objekte im angegebenen Diagramm oder der angegebenen Diagrammgruppe dar. Um eine SeriesCollection -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim scn as SeriesCollection
Set scn = ActiveDocument.Background.Chart.SeriesCollection()

Add

Fügt der Auflistung eine oder mehrere Datenreihen hinzu.

Diese Methode gibt nicht tatsächlich ein Series-Objekt zurück, wie im Objektkatalog vermerkt.

Add (Source, Rowcol, SeriesLabels, CategoryLabels, Replace)

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SeriesCollection.Add _ 
 Source:="Sheet1!B1:B10" 
 End If 
End With

Arguments

Ein benanntes Argument

Source (Source) - Die neuen Daten in Form einer Zeichenfolgendarstellung eines Bereichs, der in der Workbook -Eigenschaft des ChartData -Objekts für das Diagramm enthalten ist.

Optional arguments

Die folgenden Argumente sind optional

Rowcol (XlRowCol) - Einer der Auflistungswerte, mit denen angegeben wird, ob sich die neuen Werte in den Zeilen oder Spalten des angegebenen Bereichs befinden.

Mögliche Rückgabewerte sind xlColumns - Die Datenreihe befindet sich in einer Zeile, xlRows - Die Datenreihe befindet sich in einer Spalte.

SeriesLabels (Boolean) - True, wenn die erste Zeile oder Spalte den Namen der Datenreihe enthält.

CategoryLabels (Boolean) - True, wenn die erste Zeile oder Spalte den Namen der Kategoriebeschriftungen enthält.

Replace (Boolean) - Wenn CategoryLabels den Wert True und Replace True ist, ersetzen die angegebenen Rubriken die derzeit für die Datenreihe.

Count

Gibt die Anzahl der Objekte in der Auflistung zurück.

Dim lngCount As Long
lngCount = ActiveDocument.Background.Chart.SeriesCollection.Count

Extend

Fügt einer bestehenden Auflistung von Datenreihen neue Datenpunkte hinzu.

Diese Methode ist nicht für PivotChart-Berichte verfügbar.

Extend (Source, Rowcol, CategoryLabels)

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.SeriesCollection.Extend _ 
 Source:="B1:B6" 
 End If 
End With

Arguments

Ein benanntes Argument

Source (Source) - Die neuen Daten, auf das SeriesCollection -Objekt hinzugefügt werden, als A1-Bezugssystems dargestellt.

Optional arguments

Die folgenden Argumente sind optional

Rowcol (XlRowCol) - Einer der XlRowCol -Enumerationswerte, der angibt, ob sich die neuen Werte in den Zeilen oder Spalten des angegebenen Quellbereichs befinden.

Mögliche Rückgabewerte sind xlColumns - Die Datenreihe befindet sich in einer Zeile, xlRows - Die Datenreihe befindet sich in einer Spalte.

CategoryLabels (Boolean) - True, wenn die erste Zeile oder Spalte enthalten den Namen der Kategorie Etiketten.

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer für das Objekt.

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

NewSeries

Erstellt eine neue Datenreihe.

Diese Methode steht für PivotChart-Diagramme nicht zur Verfügung.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 Set ns = .Chart.SeriesCollection.NewSeries 
 End If 
End With