geekgirlau
09-21-2009, 06:03 PM
Can't find the option, and my belief is that Microsoft have chosen to remove it.
:igiveup:
Quick workaround if required (although I'm sure there are other ways to accomplish this):
Dim cht As ChartObject
For Each cht In shGraphs.ChartObjects
cht.Chart.Legend.Font.Size = 14
cht.Chart.Legend.Position = xlLegendPositionRight
Next cht
I've attached this to a worksheet event that causes a recalculation.
:igiveup:
Quick workaround if required (although I'm sure there are other ways to accomplish this):
Dim cht As ChartObject
For Each cht In shGraphs.ChartObjects
cht.Chart.Legend.Font.Size = 14
cht.Chart.Legend.Position = xlLegendPositionRight
Next cht
I've attached this to a worksheet event that causes a recalculation.