Change Font Size on Multiple Charts at the same time




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.




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

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question