El método manual, con fórmulas y series auxiliares, tiene la ventaja que puede ser usado también en entornos donde las macros están bloqueadas, por ejemplo, por el administrador de la red. Las deventajas son menores pero existen:
- el valor máximo es determinado por el algoritmo de Excel, por lo que siempre será cercano al valor deseado pero no siempre exactamente igual;
- hay que modificar cada uno de las gráficos que queremos coordinar.
Las macros son más flexibles y eficientes, ya que podemos establecer exactamente el valor que queremos que aparezca como máximo y podemos aplicarlas a todos los gráficos de la hoja.
El código es muy sencillo y podemos usarlo de dos maneras distintas: como sub (macro común) o como evento. Al usarlo como sub, tenemos que crear también la forma de disparar el código, por ejemplo, ligando la macro a un botón; al usar eventos podemos hacer que la macro corra cuando, por ejemplo, el usuario cambia algún dato en la tabla de los datos.
Como en el ejemplo de la nota anterior, tenemos dos gráficos basados en dos tablas de datos y en la celda A3 calculamos el valor máximo de ambas tablas (hemos creado el nombre "cellValMax" que se refiere a la celda A3)
Como podemos ver en la imagen, la escala del eje de las Y es diferente en cada gráfico y por lo tanto la comparación visual es engañosa.
Como mencionamos más arriba podemos usar el código como sub (macro) o como evento; el código es el mismo pero la forma de hacerlo correr es distinta.
Uso del código como sub (macro)
En un módulo compun del editor de Vb, ponemos este código
Sub coordinar_max_graficos()
Dim dbMax As Double
Dim objCht As ChartObject
dbMax = Range("cellValMax").Value
For Each objCht In ActiveSheet.ChartObjects
With objCht.Chart.Axes(xlValue)
.MaximumScale = dbMax
.MinimumScale = 0
End With
Next objCht
End Sub
En la hoja que contiene los gráficos agregamos un botón ligado a la macro
Uso del código como evento
Para usarlo como evento el código debe ir en un módulo de la hoja que contiene los gráficos. Una de las formas de acceder a este módulo es apunta con el mouse a la pestaña con el nombre de la hoja y activar la opción Ver código
En nuestro caso vamos a crear un evento de manera que cuando el usuario haga algún cambio en la hoja, se dispare el código. Para esto usamos un evento del tipo Change
Como puede apreciarse, el código es el mismo que en la rutina sub.
Como mencionamos más arriba podemos usar el código como sub (macro) o como evento; el código es el mismo pero la forma de hacerlo correr es distinta.
Uso del código como sub (macro)
En un módulo compun del editor de Vb, ponemos este código
Sub coordinar_max_graficos()
Dim dbMax As Double
Dim objCht As ChartObject
dbMax = Range("cellValMax").Value
For Each objCht In ActiveSheet.ChartObjects
With objCht.Chart.Axes(xlValue)
.MaximumScale = dbMax
.MinimumScale = 0
End With
Next objCht
End Sub
En la hoja que contiene los gráficos agregamos un botón ligado a la macro
Uso del código como evento
Para usarlo como evento el código debe ir en un módulo de la hoja que contiene los gráficos. Una de las formas de acceder a este módulo es apunta con el mouse a la pestaña con el nombre de la hoja y activar la opción Ver código
En nuestro caso vamos a crear un evento de manera que cuando el usuario haga algún cambio en la hoja, se dispare el código. Para esto usamos un evento del tipo Change
