Change Font Size on Multiple Charts at the same time


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!
 
Ad

Advertisements

J

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

Top