Autoajuste de ejes en gráficos de Excel según máximo y mínimo de una celda
Publicado por Fernando (5 intervenciones) el 14/06/2014 11:14:37
Como sabéis los gráficos de Excel tienen la posibilidad de autoajustar sus ejes X e Y de manera automática en las opciones de gráfico, pero por alguna extraña razón, cuando el rango de los datos de origen es superior a un valor determinado, el valor mínimo de los ejes te lo deja en 0, y no autoajusta adecuadamente la gráfica. Así, tratando de resolver este problema he creado el siguiente código:
El código funciona perfectamente autoajustando los ejes de las gráficas si se modifican los datos primarios de la gráfica Chart1, si no fuera porque, como veréis en el ejemplo, actúa sobre todas las gráficas de la hoja activa. Así, cuando en la misma hoja hay varias gráficas, todas ellas se autoajustan en base a los mismos valores máximo y mínimo que se le han especificado, en este caso, los correspondientes a la gráfica Chart1: Chart1MaxY, Chart1MinY y Chart1MaxX y Chart1MinX.
Mi problema, y por lo que escribo en el foro, es porque no sé cómo indicar en el código que para cada gráfica (Chart1 y Chart2) quiero que los valores de autoajuste de X y de Y sean diferentes, es decir, quiero que para la gráfica Chart1 coja los que hay en el código (Chart1MaxY, Chart1MinY y Chart1MaxX y Chart1MinX) y para Chart2 los suyos (Chart2MaxY, Chart2MinY y Chart2MaxX y Chart2MinX). Para facilitar la comprensión del caso, adjunto un archivo de ejemplo donde lo explico:
"Ejmplo autoajuste ejes.xlsm"
https://www.dropbox.com/s/gfuc7w7hod0t1gl/Ejmplo%20autoajuste%20ejes.xlsm
Agradezco de antemano cualquier comentario o ayuda que podáis prestarme.
Un saludo,
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objCht As ChartObject
For Each objCht In ActiveSheet.ChartObjects With objCht.Chart ' Valores para el eje (Y)
With .Axes(xlValue)
.MaximumScale = Sheets("Calibración").Range("Chart1MaxY").Value
.MinimumScale = Sheets("Calibración").Range("Chart1MinY").Value
'.MajorUnit = Sheets("Calibración").Range("CalUnitY").Value
End With
' Valores para el eje (X)
With .Axes(xlCategory)
.MaximumScale = Sheets("Calibración").Range("Chart1MaxX").Value
.MinimumScale = Sheets("Calibración").Range("Chart1MinX").Value
'.MajorUnit = Sheets("Calibración").Range("CalUnitY").Value
End With
End With
Next objCht
End Sub
El código funciona perfectamente autoajustando los ejes de las gráficas si se modifican los datos primarios de la gráfica Chart1, si no fuera porque, como veréis en el ejemplo, actúa sobre todas las gráficas de la hoja activa. Así, cuando en la misma hoja hay varias gráficas, todas ellas se autoajustan en base a los mismos valores máximo y mínimo que se le han especificado, en este caso, los correspondientes a la gráfica Chart1: Chart1MaxY, Chart1MinY y Chart1MaxX y Chart1MinX.
Mi problema, y por lo que escribo en el foro, es porque no sé cómo indicar en el código que para cada gráfica (Chart1 y Chart2) quiero que los valores de autoajuste de X y de Y sean diferentes, es decir, quiero que para la gráfica Chart1 coja los que hay en el código (Chart1MaxY, Chart1MinY y Chart1MaxX y Chart1MinX) y para Chart2 los suyos (Chart2MaxY, Chart2MinY y Chart2MaxX y Chart2MinX). Para facilitar la comprensión del caso, adjunto un archivo de ejemplo donde lo explico:
"Ejmplo autoajuste ejes.xlsm"
https://www.dropbox.com/s/gfuc7w7hod0t1gl/Ejmplo%20autoajuste%20ejes.xlsm
Agradezco de antemano cualquier comentario o ayuda que podáis prestarme.
Un saludo,
Valora esta pregunta
0
