Change Font Size on Multiple Charts at the same time

[JessM]

Hi,

I have about 60 charts in a workbook and would like to change all of the
font sizes - title, axis, labels to a different font size. Is there a way to
do this with a macro? I also have some text boxes placed on the charts and
would like to change them as well.

Thanks!

 

[John Mansfield]

This macro should change the font sizes in the chart area and textboxes:

Sub Resize_Fonts()
Dim Sht As Worksheet
Dim Cht As ChartObject
For Each Sht In ActiveWorkbook.Sheets
For Each cht In Sht.ChartObjects
Cht.Chart.ChartArea.Font.Size = 10
Next cht
Next Sht
End Sub