Objeto da coleção ChartObjects

Worksheets (Worksheet) ChartObjects (ChartObject) Border Chart Interior PivotLayout

Uma coleção de todos os objetos ChartObject na folha de gráfico, folha de caixa de diálogo ou planilha especificada. Cada objeto ChartObject representa um gráfico incorporado. O objeto ChartObject atua como um recipiente para o objeto Chart. As propriedades e métodos para o objeto ChartObject controlam a aparência e o tamanho do gráfico incorporado na planilha.

Usando a coleção ChartObjects

Use o método ChartObjects para retornar a coleção ChartObjects. O exemplo seguinte exclui todas os gráficos incorporados da planilha chamada "Sheet1".

Worksheets("sheet1").ChartObjects.Delete

Use o método Add para criar um novo gráfico incorporado, vazio, e adicioná-lo à coleção. Use o método ChartWizard para adicionar dados e formatar o novo gráfico. O exemplo seguinte cria um novo gráfico incorporado e adiciona os dados das células A1:A20 como um gráfico de linhas.

Dim ch As ChartObject
Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)
ch.Chart.ChartWizard source:=Worksheets("sheet1").Range("a1:a20"), _
    gallery:=xlLine, title:="New Chart"

Use ChartObjects(index), onde index é o nome ou número de índice do gráfico incorporado, para retornar um único objeto ChartObject. O exemplo seguinte define o padrão para a área de gráfico no gráfico incorporado um na planilha chamada "Sheet1".

Worksheets("Sheet1").ChartObjects(1).Chart. _
    ChartArea.Interior.Pattern = xlLightDown