Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Gráfico pirámide 3D

| 0 comments

¿Cómo crear un gráfico pirámide 3D?

Para su mejor entendimiento, se plantea un ejemplo.

La empresa XYZ busca analizar las demandas que su producto estrella ha tenido en los en los dos últimos años en ciertos meses. Para ello se tienen los siguientes datos:

Mes Año 2013 Año 2014
Enero 45 72
Febrero 212 90
Marzo 378 108
Abril 129 134
Mayo 163 92
Junio 96 137

Se desea identificar si es que hubo caídas o aumentos en la demanda gráficamente, para de esta forma identificar las causas y actuar para mejorar sus pronósticos. Para ello utilizará una gráfica de pirámide 3D.

Los pasos a seguir son:

1. Primero se debe seleccionar todos los datos que se presentarán en el gráfico.

2. En la ficha Insertar, en la categoría Gráficos, ir a Columnas y ahí seleccionar pirámide 3D.

3. Luego, se debe hacer click en el gráfico. En este paso uno puede dirigirse a la ficha Diseño y en el grupo diseños de gráficos, uno debe seleccionar el que más le convenga. Además también se puede modificar el Estilo de Diseño.

4. En el mismo gráfico, hacer clic en el título para poder modificarlo de acuerdo a lo que se requiera.

Esos son los principales pasos a seguir para poder tener la pirámide. (El resultado se puede ver en el anexo)

Código en VBA

Primero se debe seleccionar las celdas en donde se encuentran los datos. En este caso se tendrán fijo 3 columnas y lo que variará serán el número de filas. Para ello se plantea lo siguiente:

– Se declara la variable “ult”, la cual nos dará el número de filas que se tiene en la tabla de datos a graficar.

ult = Cells(Rows.Count, 1).End(xlUp).Row

– Se selecciona la celda de la primera fila y primera columna de la tabla de datos.
Cells(1, 1).Select

– Se amplía la selección a un número de filas igual a “ult” y a 3 columnas fijas.
Selection.Resize(ult, 3).Select

Posteriormente, se ingresará los siguientes comandos, los cuales llaman a éste tipo de gráfico que ya está previamente establecido por el software:

– Se agrega una gráfica

ActiveSheet.Shapes.AddChart.Select

– Se modifica a la gráfica de pirámide 3D

ActiveChart.ChartType = xlPyramidCol

Finalmente, se ingresan los códigos para modificar el estilo y el diseño de la gráfica.

– Se modifica el estilo, en este caso es el 3.
ActiveChart.ApplyLayout (3)

– Se modifica el diseño, en este caso es el 34.
ActiveChart.ChartStyle = 34

Finalmente, tenemos el siguiente programa:

Sub piramide3D()

ult = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, 1).Select
Selection.Resize(ult, 3).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlPyramidCol
ActiveChart.ApplyLayout (3)
ActiveChart.ChartStyle = 34
End Sub

Ejemplo en Excel

Por: Cristina Gamboa Guevara

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5