Classe SeriesCollection (Word VBA)

A classe SeriesCollection representa uma coleção de todos os objetos Series no gráfico ou grupo de gráficos especificado. Para usar uma variável de classe SeriesCollection, ela primeiro precisa ser instanciada por exemplo

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

Add

Adiciona uma ou mais séries novas à coleção.

No entanto, esse método não retorna um objeto Series conforme mencionado no Pesquisador de objetos.

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

O seguinte argumento é necessário

Source (Source) - Os novos dados como uma representação de cadeia de caracteres de um intervalo contido na propriedade Workbook do objeto ChartData do gráfico.

Optional arguments

Os seguintes argumentos são opcionais

Rowcol (XlRowCol) - Um dos valores de enumeração que especifica se o novos valores estarão nas linhas ou nas colunas do intervalo especificado.

Os valores de retorno possíveis são xlColumns - A série de dados está em uma linha, xlRows - A série de dados está em uma coluna.

SeriesLabels (Boolean) - True se a primeira linha ou coluna contém o nome da série de dados. False se a primeira linha ou coluna contiver o primeiro ponto de dados da série. Se esse argumento for omitido, o Microsoft Word tenta determinar o local do nome da série a partir do conteúdo da primeira linha ou coluna.

CategoryLabels (Boolean) - True se a primeira linha ou coluna contém o nome dos rótulos de categoria. False se a primeira linha ou coluna contiver o primeiro ponto de dados da série. Se esse argumento for omitido, o Word tenta determinar a localização dos rótulos de categoria a partir do conteúdo da primeira linha ou coluna.

Replace (Boolean) - Se CategoryLabels for True e substituir for True, as categorias especificadas substitua as categorias que existem atualmente para a série. Se substituir for False, as categorias existentes não serão substituídas. O padrão é False.

Count

Retorna o número de objetos na coleção. Long somente leitura.

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

Extend

Adiciona novos pontos de dados à coleção de sequências existente.

Este método não está disponível para relatórios de gráfico dinâmico.

Extend (Source, Rowcol, CategoryLabels)

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

Arguments

O seguinte argumento é necessário

Source (Source) - Os novos dados a ser adicionado ao objeto SeriesCollection, representado como uma referência de intervalo de estilo A1.

Optional arguments

Os seguintes argumentos são opcionais

Rowcol (XlRowCol) - Um dos valores de enumeração XlRowCol que especificam se os novos valores estão nas linhas ou colunas de uma determinada fonte do intervalo. Se esse argumento for omitido, o Microsoft Word tentará determinar onde os valores estão pelo tamanho e orientação do intervalo selecionado ou pelas dimensões da matriz.

Os valores de retorno possíveis são xlColumns - A série de dados está em uma linha, xlRows - A série de dados está em uma coluna.

CategoryLabels (Boolean) - True para que a primeira linha ou coluna contenha o nome dos rótulos de categoria. False para que a primeira linha ou coluna contenha o primeiro ponto de dados da série. Se esse argumento for omitido, o Word tenta determinar a localização dos rótulos de categoria a partir do conteúdo da primeira linha ou coluna.

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O nome ou número de índice do objeto.

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

Cria uma nova série.

Este método não está disponível para gráficos de gráfico dinâmico.

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