Have file folders with dozens of spreadsheets and noticed the CHART
LEGEND fonts a too BIG. I'd like to change ALL chart legend font sizes
on all worksheets in a spreadsheet at once.. using a tool or script,
etc. Any solutions? There are simply too many charts to open and
change fonts individually.

-G

The following code will change the font size in all charts in the active
workbook:

'=======================
Sub ChangeLegendFont()

Dim chObj As ChartObject
Dim ws As Worksheet
Dim ch As Chart
Dim lFont As Long

lFont = 6 'set the font size

For Each ws In ThisWorkbook.Worksheets
For Each chObj In ws.ChartObjects
chObj.Chart.Legend.Font.Size = lFont
Next chObj
Next ws

For Each ch In ThisWorkbook.Charts 'chart sheets
ch.Legend.Font.Size = lFont
Next ch

End Sub
'================

(E-Mail Removed) wrote:
> Have file folders with dozens of spreadsheets and noticed the CHART
> LEGEND fonts a too BIG. I'd like to change ALL chart legend font sizes
> on all worksheets in a spreadsheet at once.. using a tool or script,
> etc. Any solutions? There are simply too many charts to open and
> change fonts individually.
>
> -G
>


--
Debra Dalgleish
Contextures
http://www.contextures.com/tiptech.html