Can someone modify this for another situation for me please?

[danimal]

Sub CopyTitle()

Dim chtChart As Chart

On Error Resume Next
For Each chtChart In ActiveWorkbook.Charts
chtChart.ChartTitle.Characters.Text = "Multiplication Form C"
Next chtChart

End Sub

-------------------

Instead of copying a chart title into each chart, I need to change the minimum and maximum values on both the axis and secondary axis.

Any help is appreciated. Thanks

 

[dave3009]

Did you check what the macro recorder noted. Perhaps by running it whilst modifying your chart it might give you a hint?

Hope this helps


Dave

 

[danimal]

Will this work?

Sub minmaxaxisvalues()

Dim chtChart As Chart

On Error Resume Next
For Each chtChart In ActiveWorkbook.Charts
chtChart.Axes(xlValue).MinimumScale = 0
chtChart.Axes(xlValue).MaximumScale = 64
chtChart.Axes(xlValue, xlSecondary).MaximumScale = 3
Next chtChart

End Sub

 

[danimal]

I tried it and it works. Thanks