Pfff, sé cómo hacerlo pero no sabría explicarlo, yo lo haría mediante una macro de VB para que no se vea tan "manual" y engorroso:
Aquí hay un ejemplo:
Para automatizar este procedimiento por medio de una macro damos clic derecho sobre el nombre de la hoja y damos clic en Ver código para abrir el editor de VBA donde pegaremos el siguiente código:
Modifiquemos manualmente estos valores dejando como límite inferior el valor 80 y como límite superior el valor 120:
Ahora es mucho más clara la dinámica de cada vendedor al observar las líneas tan de cerca.
Para automatizar este procedimiento por medio de una macro damos clic derecho sobre el nombre de la hoja y damos clic en Ver código para abrir el editor de VBA donde pegaremos el siguiente código:
Public Sub Aumentar()
ActiveSheet.ChartObjects("Gráfico 4").Activate
ActiveChart.Axes(xlValue).MinimumScale = 80
ActiveChart.Axes(xlValue).MaximumScale = 100
End Sub
Es importante que al aplicar este código en sus trabajos personales, en la línea 2, es decir ActiveSheet.ChartObjects("Gráfico 4").Activate, se ajuste el nombre del gráfico ya que este puede variar de un libro a otro. Para identificar el nombre del gráfico, este aparece en la barra de Nombre de la hoja Excel al seleccionarlo.
La tercera línea estamos asignando el valor mínimo para el eje vertical. Como este ejemplo establece una alerta roja por debajo de 80 entonces ese es el valor que estoy asignando asi que en sus trabajos personales dependiendo del valor mínimo establecido, es en esta línea donde lo deben asignar.
La cuarta línea es para asignar el valor 100 al límite superior del eje vertical.
Ahora insertamos una imagen de una lupa y le asignamos la macro que acabamos de crear:
Ahora al dar clic sobre la imagen, automáticamente se ajusta el eje para ver mas de cerca las líneas:
Para completar el ejercicio agregaremos otras líneas de código para quitar el zoom:
Public Sub Disminuir()
ActiveSheet.ChartObjects("Gráfico 4").Activate
ActiveChart.Axes(xlValue).MinimumScaleIsAuto = True
ActiveChart.Axes(xlValue).MaximumScaleIsAuto = True
End Sub
Insertamos otra imagen en la hoja Excel para indicar la disminución del zoom y le asignamos esta nueva macro:
En esta página viene la descarga del módulo, huelga decir que como sea una versión de excel 2003 o anterior, el código cambia algo, es más, metería logicamente un UseForm
