Change Font Size on Multiple Charts at the same time
 

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!

Change Font Size on Multiple Charts at the same time
 

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

------
John Mansfield
http://www.cellmatrix.net


"JessM" wrote:

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!