loop through chart on sheet to change axis numbers

[frontdeskcps]

I am very new to VBA and am having a hard time understanding how the loop feature is working in relation to only charts on the current sheet. I can change an "active chart" with a VBA but need to loop it through all charts on the current sheet. I have been trying to understand it for 2 days of intense research but am lost. I only want to change the Yaxis(xlValue). The VBA I am using to make a change the value is:

Sub ScaleAxes100()

With Application.ActiveChart.Axes(xlValue, xlPrimary)
.MinimumScale = ActiveSheet.Range("af3").Value
.MaximumScale = ActiveSheet.Range("af2").Value
.MajorUnit = ActiveSheet.Range("af4").Value

End With

End Sub

I can do it with one chart but there are 24 charts on each sheet and 42 sheets to "fix".

 

[NdNoviceHlp]

Untested...

Dim Chrt As Chart
For Each Chrt In ActiveSheet.ChartObjects
With .Chart.Axes(xlValue)
.MinimumScale = ActiveSheet.Range("af3").Value
 .MaximumScale = ActiveSheet.Range("af2").Value
 .MajorUnit = ActiveSheet.Range("af4").Value
End With
With .Chart.Axes(xlCategory)
.MinimumScale = ActiveSheet.Range("af3").Value
 .MaximumScale = ActiveSheet.Range("af2").Value
 .MajorUnit = ActiveSheet.Range("af4").Value
End With
Next Chrt

HTH. Dave
ps. Welcome to the Board! Please use code tags.

 

[frontdeskcps]

First of all - Thanks
Second, what is a code tag?
Third, I am getting an error code: invalid or unqualified reference. The .Chart in line 3 is highlighted. Does it need to say "ActiveChart"?

 

[NdNoviceHlp]

I don't get why active sheet doesn't work but see Domenic's code here..
https://www.mrexcel.com/forum/excel...rough-all-charts-each-worksheet-workbook.html
Read the stuff at the top of the forum re. code tags. It makes your code more readable. HTH. Dave

 

[frontdeskcps]

Thank you! Here's what finally worked.
"af2" is a cell reference where I put my max number ....

Sub SizeGraphs_PERCENT()


Dim ws As Worksheet
Dim objCht As ChartObject


       
        For Each objCht In ActiveSheet.ChartObjects
            With objCht.Chart
            With .Axes(xlValue)
                .MinimumScale = ActiveSheet.Range("af3").Value
                .MaximumScale = ActiveSheet.Range("af2").Value
                .MajorUnit = ActiveSheet.Range("af4").Value
            End With
            End With
        Next objCht


End Sub

Still not sure if I have this code tag set up correctly. If I don't, sorry!

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Dave