Cómo crear un gráfico en Excel VBA

Conocer cómo crear dinámicamente listas con Visual Basic para aplicaciones puede ahorrar tiempo en el análisis de grandes cantidades de datos . Microsoft Excel se utiliza comúnmente para recoger datos similares a una base de datos Access . Excel ofrece diferentes tipos de gráficos , tales como pastel , líneas, columnas y otros formatos. Los gráficos de columnas se utilizan a menudo en Excel para mostrar gráficamente la información . No es difícil crear gráficos utilizando VBA para presentar los datos con claridad y de manera más eficiente . Instrucciones
1

Abra Microsoft Excel 2007 y haga clic en la pestaña de " desarrolladores" . Seleccione createColumnChart Sub " Visual Basic y escriba " () " y presionar" Enter " para crear un nuevo sub .
2

Type" myChart As Gráfico

Range (" A1" ) . Seleccione

ActiveCell.Value = "Tabla de datos 1 "

Range (" A2" ) . Seleccione

ActiveCell.Value = " 1 "
< p > Range (" A3 ") . Seleccione

ActiveCell.Value = " 2 "

Range (" A4" ) . Seleccione

ActiveCell.Value = " 3 "

Range ( " A5 ") . Seleccione

ActiveCell.Value = " 4 "

Range (" B1" ) . Seleccione

ActiveCell.Value = "Data 2 Gráfico "

Range (" B2" ) . Seleccione

ActiveCell.Value = " 5 "

Range (" B3 ") . Seleccione
< p> ActiveCell.Value = " 6 "

Range (" B4 ") . Seleccione

ActiveCell.Value = " 7"

Range (" B5 ") . Seleccione

ActiveCell.Value = " 8 "

Range (" B6 ") . Seleccione "declarar la variable de tabla y añadir algunos datos para el gráfico.
3

Type " Set myChart = Charts.Add " para añadir un nuevo gráfico.

Type " con myChart

. Name =" Datos gráfico "

. ChartType . = xlColumnClustered

SetSourceData Fuente : = Sheets (" Sheet1" ) Range (" A1: B5 ") . , _

PlotBy : . = xlRows

HasTitle = True

. ChartTitle.Text = "= Hoja1! R1C2 "

. Ejes ( xlCategory , xlPrimary ) . HasTitle = True

. Ejes ( xlCategory , xlPrimary ) . AxisTitle . Characters.Text = " datos del cuadro 1 "

. Ejes ( xlValue , xlPrimary ) . HasTitle = True

. Ejes ( xlValue , xlPrimary ) . AxisTitle.Characters.Text = "Tabla de Datos 2 "

End With" para configurar las propiedades del gráfico .
4

tipo "End sub" si es necesario . Ejecutar los nuevos sub .