Macro for resizing graph text

[chemist1]

I'm trying to create a macro that will change all the text on a graph (legend, x and y axes scales and axis titles) to size 14 and put the legend overlapping the chart. The macro I have recorded is below, but it gets stuck at the 7th line

Any ideas why or how to fix this? Any help greatly appreciated.

    ActiveChart.Legend.Select
    ActiveChart.Legend.IncludeInLayout = False
    Selection.Format.TextFrame2.TextRange.Font.Size = 14
    ActiveChart.Axes(xlValue).AxisTitle.Select
    Selection.Format.TextFrame2.TextRange.Font.Size = 14
    ActiveChart.Axes(xlValue).Select
    Selection.Format.TextFrame2.TextRange.Font.Size = 14
    ActiveChart.Axes(xlCategory).Select
    Selection.Format.TextFrame2.TextRange.Font.Size = 14
    ActiveChart.Axes(xlCategory).AxisTitle.Select
    Selection.Format.TextFrame2.TextRange.Font.Size = 14

 

[Jon Peltier]

You can format all of a chart's text in one command:

ActiveChart.ChartArea.Font.Size = 14

 

[chemist1]

Thanks for this, it works properly now, very nice and simple.