ChartObjects.Add (Excel)

Cria um novo gráfico incorporado.

Add (Left, Top, Width, Height)

Set co = Sheets("Sheet1").ChartObjects.Add(50, 40, 200, 100) 
co.Chart.ChartWizard Source:=Worksheets("Sheet1").Range("A1:B2"), _ 
 Gallery:=xlColumn, Format:=6, PlotBy:=xlColumns, _ 
 CategoryLabels:=1, SeriesLabels:=0, HasLegend:=1

Arguments

O seguinte argumento é opcional

Left (Double) - As coordenadas iniciais do novo objeto (em pontos) em relação ao canto superior esquerdo da célula a1 em uma planilha ou ao canto superior esquerdo de um gráfico.

Top - Double

Width (Double) - O tamanho inicial do novo objeto, em pontos.

Height - Double