¿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
Por: Cristina Gamboa Guevara