Excel es muy útil para crear gráficos a partir de datos en una hoja de trabajo. ¿Qué sucede si desea crear un gráfico directamente desde VBA, sin usar ningún dato en una hoja de trabajo? Puede hacer esto «engañando» a Excel haciéndole creer que está trabajando con información de una hoja de trabajo y luego proporcionando la suya propia.

La siguiente macro ilustra este concepto:

Sub MakeChart()

'Add a new chart     Charts.Add

'Set the dummy data range for the chart     ActiveChart.SetSourceData Sheets("Sheet1").Range("a1:d4"), _       PlotBy:=xlColumns

'Manually set the values for the data series     ActiveChart.SeriesCollection(1).Formula = _       "=SERIES(""First Data"",{""a"",""b"",""c"",""d""},{2,3,4,5},1)"

ActiveChart.SeriesCollection(2).Formula = _       "=SERIES(""Second Data"",{""a"",""b"",""c"",""d""},{6,7,8,9},2)"

ActiveChart.SeriesCollection(3).Formula = _       "=SERIES(""Third Data"",{""a"",""b"",""c"",""d""},{10,11,12,13},3)"

End Sub

Los comentarios de este ejemplo explican lo que sucede en cada paso.

Al configurar el rango de datos ficticios, el método SetSourceData asume que el rango está en una hoja de trabajo denominada Hoja1. Si no tiene dicha hoja en su libro de trabajo, debe modificar el comando en consecuencia.

Posteriormente, al configurar manualmente los valores para la serie de datos, el comando SERIES se usa para especificar la etiqueta de la serie (Primeros Datos, Segundos Datos y Terceros Datos), la matriz de etiquetas de categorías (a, b, c y d en todas las series), la matriz de valores de la serie y un número que especifica qué número de serie representa.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2622) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

enlace: / excelribbon-Creating_Charts_in_VBA [Creación de gráficos en VBA].