Classe SeriesCollection (PowerPoint 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 = ActiveWindow.RangeFromPoint.Chart.ChartGroups(1).SeriesCollection()

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo SeriesCollection: Chart.SeriesCollection e ChartGroup.SeriesCollection.

Add

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

Este método não retorna um objeto Series conforme mencionado no Pesquisador de objetos.

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

Dim srs As Series
Set srs = ActivePresentation.Slides(1).Shapes(1).Chart.ChartGroups(1).SeriesCollection.Add(Source:=)

Arguments

O seguinte argumento é necessário

Source (ChartData) - 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 = ActiveWindow.RangeFromPoint.Chart.ChartGroups(1).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)

ActivePresentation.Slides(1).Shapes(1).Chart.ChartGroups(1).SeriesCollection.Extend Source:= "B1:B6"

Arguments

O seguinte argumento é necessário

Source (SeriesCollection) - Os novos dados a serem adicionados 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 especifica se os novos valores estão nas linhas ou colunas de origem do intervalo especificado. 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.

Dim srsSeriesCollection As Series
Set srsSeriesCollection = ActivePresentation.Slides(1).Shapes(1).Chart.ChartGroups(1).SeriesCollection(Index:=1)

NewSeries

Cria uma nova série.

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

Dim srsNewSeries As Series
Set srsNewSeries = ActivePresentation.Slides(1).Shapes(1).Chart.ChartGroups(1).SeriesCollection.NewSeries()