Cómo hacer un gráfico en la misma hoja en VBA

En la suite Microsoft Office , Visual Basic para Aplicaciones ( VBA ) es el shell de programación que ofrece a los usuarios avanzados la posibilidad de crear documentos complejos y automatizados. Una de las tareas más complejas que se puede hacer en Excel con VBA es crear una tabla e incrustarlo en la misma hoja de trabajo en la que está trabajando . Utilice el objeto " ChartObject " en VBA para crear e incrustar un gráfico en una hoja de cálculo Excel. Instrucciones
1

Abrir Excel 2010 y mostrar la ficha Programador , si aún no lo está demostrando . Haga clic en "Archivo " y luego " Opciones". Haga clic en " Personalizar la cinta" en el panel Categorías . Seleccione " desarrolladores" de la lista de fichas principales y luego haga clic en " Aceptar".

2 Haga clic en la pestaña de " desarrolladores" que ahora debe mostrar en la cinta de opciones . Haga clic en "Visual Basic " para abrir el editor de Visual Basic .

3 Haga doble clic en la hoja de cálculo en la que desee insertar la tabla del dolor Proyecto. Todas las hojas de trabajo que se encuentran actualmente en el proyecto aparece en el panel . El código de la hoja de cálculo se abrirá en la ventana de código . Si aún no lo ha agregado código para la hoja de la ventana de código estará en blanco.

4 Haga clic en "Insertar" y luego " Procedimiento ". Escriba un nombre para el procedimiento en la ventana de nombre, dejar todas las otras opciones que el mismo y luego haga clic en " Aceptar". Para el ejemplo de este artículo , el nombre de la " embedChart . " Procedimiento
5

Agregue el código que incrustar un gráfico en la hoja de trabajo . Haga clic entre las " Public Sub ... " y "End Sub " declaraciones que están ahora en la ventana de código . Se le agrega el código para el procedimiento entre las dos declaraciones. Microsoft ha desarrollado un código que va a crear una tabla e incrustarlo en la hoja de cálculo actual. Copie este código en el procedimiento o escribir el suyo propio.

" EmbedChart Sub ( )

chtNew As Gráfico

Set chtNew = Charts.Add

Set chtNew = chtNew.Location (Donde : = xlLocationAsObject , Name : = " Sheet1" )

chtNew

ChartType = xl3DPie

'Establecer el rango de datos de origen . el gráfico

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

xlRows

HasTitle = verdadero

. ChartTitle.Text = " Mi Pie Chart "

extremo con

End Sub "
6

Haga clic en" Guardar " en la barra de herramientas y el cierre del editor de Visual Basic . Ir a la hoja de cálculo que incrustado en la tabla y compruebe que se está mostrando .