Gráficos de programación en Excel VBA
buen día, por aquí Miguel y hoy os traigo un nuevo artículo.
A continuación veremos dos programas en Excel VBA. Un programa bucles en todos los gráficos en una hoja y cambie cada gráfico a un gráfico circular. El otro programa cambia algunos propiedades del primer gráfico.
1. Cree algunos gráficos (o descargue el archivo Excel).
Coloque un botón de comando en la hoja de trabajo y agregue las siguientes líneas de código:
1. Primero, necesitamos declarar un ChartObject. ChartObject actúa como un contenedor para un objeto Chart. Llamamos cht ChartObject pero puedes usar cualquier nombre.
Oscuro cht Cómo ChartObject
2. La colección ChartObjects contiene todos los gráficos incrustados en una sola hoja. Queremos repasar todos los gráficos de la primera hoja. Agregue lo siguiente para cada ciclo subsiguiente.
Entonces cht
3. El objeto Gráfico representa un gráfico en un libro. Agregue la siguiente línea de código al bucle For Next para cambiar cada gráfico a un gráfico circular.
cht.Chart.ChartType = xlPie
Nota: Nuevamente, cht actúa como un contenedor para el objeto Chart. Usamos la propiedad ChartType para cambiar el tipo de gráfico. Usamos la constante xlPie incorporada para cambiar cada gráfico a un gráfico circular.
4. Resultado al hacer clic en el botón de comando de la hoja:
Ahora cambiaremos algunas propiedades del primer gráfico.
Coloque otro botón de comando en la hoja de trabajo y agregue las siguientes líneas de código:
5. La colección ChartObjects contiene todos los gráficos incrustados en una sola hoja. Agregue la siguiente línea de código para activar el primer gráfico:
Hojas de trabajo (1) .ChartObjects (1). Activo
Ahora podemos referirnos a este gráfico como ActiveChart.
6. Agregue la siguiente línea de código para cambiar el título del gráfico.
ActiveChart.ChartTitle.Text = "Informe de ventas"
7. Agregue la siguiente línea de código para mover el título al final del gráfico:
ActiveChart.Legend.Position = xlBottom
8. Resultado al hacer clic en el botón de comando de la hoja:
Deja una respuesta