How To Change Fonts In Multiple Charts in a Workbook?

I have a workbook with approx 120 charts spread out over 30 worksheets.
Each worksheet has 4 charts on it.
Each of the 4 charts has different data and Values.
I would like them all to have the same fonts (made the mistake of not checkin when I produced the charts originaly ) but the X axis and coloring is different in each of the 4 charts. I have tried copying the "formats" but this changes everying in the chart but the data itself.

Is there a macro to help with this or possibly something easier that I am over looking?

Thanks

Untested, but this is about how it would look:

Sub ChangeChartFonts()
Dim sh As Object
Dim ch As Chart
Dim co As ChartObject

' chart sheets
For Each ch In ActiveWorkbook.Charts
ch.ChartArea.Font.Name = "Arial"
Next

' chart objects embedded on sheets
For Each sh In ActiveWorkbook.Sheets
For Each co In sh.ChartObjects
co.Chart.ChartArea.Font.Name = "Arial"
Next
Next

End Sub


- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

Cweed wrote:

> I have a workbook with approx 120 charts spread out over 30 worksheets.
> Each worksheet has 4 charts on it.
> Each of the 4 charts has different data and Values.
> I would like them all to have the same fonts (made the mistake of not
> checkin when I produced the charts originaly ) but the X axis and
> coloring is different in each of the 4 charts. I have tried copying the
> "formats" but this changes everying in the chart but the data itself.
>
> Is there a macro to help with this or possibly something easier that I
> am over looking?
>
> Thanks
>
>