Change Font Size on Multiple Charts at the same time

  • Thread starter Thread starter JessM
  • Start date Start date
J

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!
 
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
 
Back
Top