A continuación veremos dos programas en Excel VBA . Un programa hace un bucle a través de todos los gráficos en una hoja y cambia cada gráfico a un gráfico circular. El otro programa cambia algunas propiedades del primer gráfico .
1. Crear algunos gráficos (o descargar el archivo de Excel).
Coloca un botón de comando en la hoja de trabajo y añade las siguientes líneas de código:
1. Primero, tenemos que declarar un objeto ChartObject. El objeto ChartObject actúa como un contenedor para un objeto Chart. Llamamos al ChartObject cht pero puedes usar cualquier nombre.
Dim cht As ChartObject
2. La colección ChartObjects contiene todos los gráficos incrustados en una sola hoja. Queremos hacer un bucle con todos los gráficos de la primera hoja. Añade lo siguiente para cada bucle siguiente.
Por cada cht en las hojas de trabajo(1).ChartObjects Próximo cht
3. El objeto Gráfico representa un gráfico en un libro de trabajo. Añade la siguiente línea de código al bucle For Each Next para cambiar cada gráfico a un gráfico circular.
cht.Chart.ChartType = xlPie
Nota: de nuevo, cht actúa como un contenedor para el objeto de la Carta. Usamos la propiedad ChartType para cambiar el tipo de gráfico. Usamos la constante incorporada xlPie para cambiar cada gráfico a un gráfico de pastel.
4. Resultado al pulsar el botón de comando en la hoja:
Ahora cambiaremos algunas propiedades del primer gráfico.
Coloca otro botón de comando en la hoja de trabajo y añade las siguientes líneas de código:
5. La colección ChartObjects contiene todos los gráficos incrustados en una sola hoja. Añade la siguiente línea de código para activar el primer gráfico:
Hojas de trabajo(1).ChartObjects(1).Activar
Ahora podemos referirnos a esta tabla como la Tabla Activa.
6. Añade la siguiente línea de código para cambiar el título del gráfico.
ActiveChart.ChartTitle.Text = «Informe de ventas»
7. Añade la siguiente línea de código para mover la leyenda a la parte inferior del gráfico:
Posición de la leyenda de la carta activa = xlBottom
8. Resultado al pulsar el botón de comando en la hoja:
