Help with VBA code to format Axes Xl Value based on Cell reference

[willow1985]

I have a VBA code but a section of it I cannot seem to get to work. What I am trying to do is format the Axis Minimum Bound to a number referenced in Cell V1 and keep the Maximum as Auto.

Can anyone advise what I am doing wrong?

     ActiveSheet.ChartObjects("Chart 3").Activate
    ActiveChart.Axes(xlValue).Select
    ' this line:
ActiveChart.Axes(xlValue).MinimumScale = ActiveSheet.Range("V1").Value
    Application.CommandBars("Format Object").Visible = False
    Application.CutCopyMode = False
    Range("A2").Select

 

[QuietRiot]

ActiveSheet.ChartObjects("Chart 3").Activate
With ActiveChart.Axes(xlValue)
    .MinimumScale = ActiveSheet.Range("V1").Value
End With
...

 

[shknbk2]

I copied the first 3 lines of your code and used it on a chart of random data values between 20 and 200 I made for the testing. In V1, I changed the value to 0, 25, 40, etc. Every time, the code worked fine to change the minimum value. The min value, however, is not formula-based, so that when V1 changes, the code needs to be run again to reset.

The maximum value did change, though it was still set to Auto. This changing of the max value is reproduced when manually changing my min value in the Options window. No value in the chart is over 200, but when the min is 0, the auto max is 250; when min is 40, the max is 220.

What is it about your results that you find wrong?

 

[willow1985]

ActiveSheet.ChartObjects("Chart 3").Activate
With ActiveChart.Axes(xlValue)
    .MinimumScale = ActiveSheet.Range("V1").Value
End With
...

I tried your code but for some reason it still did not use the value from V1 as the minimum value (see below screenshot)

 

[willow1985]

ActiveSheet.ChartObjects("Chart 3").Activate
With ActiveChart.Axes(xlValue)
    .MinimumScale = ActiveSheet.Range("V1").Value
End With
...

Nevermind. The problem was where I put that section of code. I foolishly put it before I sorted. (feeling foolish ? )

Thank you very much for your guys help. The code works perfectly