Share via

SeriesCollection.Add Method

  • Article
Word Developer Reference

Adds one or more new series to the collection.

Version Information
 Version Added:  Word 2007

Syntax

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

expression   A variable that represents a SeriesCollection object.

Parameters

Name Required/Optional Data Type Description
Source Required Variant The new data as a string representation of a range contained in the Workbook property of the ChartData object for the chart.
Rowcol Optional XlRowCol One of the enumeration values that specifies whether the new values are in the rows or columns of the specified range.
SeriesLabels Optional Variant True if the first row or column contains the name of the data series. False if the first row or column contains the first data point of the series. If this argument is omitted, Microsoft Word attempts to determine the location of the series name from the contents of the first row or column.
CategoryLabels Optional Variant True if the first row or column contains the name of the category labels. False if the first row or column contains the first data point of the series. If this argument is omitted, Word attempts to determine the location of the category label from the contents of the first row or column.
Replace Optional Variant If CategoryLabels is True and Replace is True, the specified categories replace the categories that currently exist for the series. If Replace is False, the existing categories will not be replaced. The default is False.

Return Value
A Series object that represents the new series.

Remarks

This method does not actually return a Series object as stated in the Object Browser.

Example

The following example creates a new series for the first chart in the active document. The data source for the new series is range B1:B10 on the workbook associated with the chart.

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

See Also