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).

Gráficos de programación en Excel VBA

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.

Para Cada cht En Hojas de trabajo (1) .ChartObjects

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:

Resultado de la programación de gráficos

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:

Resultado de la programación de gráficos

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info