Programación VB para generar gráficos de columnas en Excel

Supongamos que la hoja de cálculo que genera el gráfico es una hoja de cálculo de la hoja 3

Sub gráfico()

Establezca a = Rango("e22")

Establecer b = ActiveSheet.ChartObjects.Add(0, 0, 0, 0)

Con b

.Chart.ChartType = xlColumnClustered

. Gráfico SetSourceData Fuente:=Sheets("sheet3").Range("B19:F20")

.Top = a.Top

.Left = a.Left

.Width = a.Width

.Height = a.Height

Fin con

Fin Sub