ChartObjects.Add (Excel)

Crea un nuevo gráfico incrustado.

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

Estos son los argumentos con nombre :

Left (Double) - Coordenadas iniciales, en puntos, del nuevo objeto con relación a la esquina superior izquierda de la celda a1 de la hoja de cálculo, o a la esquina superior izquierda de un gráfico.

Top - Double

Width (Double) - Tamaño inicial, en puntos, del nuevo objeto.

Height - Double