Making Minimum and Maximum Values on Axis in chart Dynamic

[stroffso]

Hi,

I have a stacked bar chart which is in essence a Gantt chart. I want it to work on multiple projects however for this to happen I need the Minimum values dynamic. I got the below code from another forum yet it keeps producing the following error

Run Time Error -2147467259 (80004005)':
Method of 'MinimumScale' of object Axis Failed.

Would anyone have any ideas on where I am going wrong?



Sub ScaleAxes()
With Application.ActiveChart.Axes(xlCategory, xlPrimary)
.MinimumScale = ActiveSheet.Range("F3").Value
.MaximumScale = ActiveSheet.Range("F2").Value
.MajorUnit = ActiveSheet.Range("F4").Value
End With
With Application.ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = ActiveSheet.Range("G3").Value
.MaximumScale = ActiveSheet.Range("G2").Value
.MajorUnit = ActiveSheet.Range("G4").Value
End With
End Sub

 

[JLGWhiz]

The only thing I can suggest is that maybe you want to use xlValue instead of xlCategory and you axes group.

 

[stroffso]

The only thing I can suggest is that maybe you want to use xlValue instead of xlCategory and you axes group.

Yep that worked perfectly thanks so much. It actually had an error for the second part with the cell G2,G3 and G4 references but I didnt need those,

thanks again

 

[JLGWhiz]

Yep that worked perfectly thanks so much. It actually had an error for the second part with the cell G2,G3 and G4 references but I didnt need those,

thanks again

You're welcome,
regards JLG