Hi MKArchibald,

1. Why does this random movement of the plot area happen? I'll not also
that
the legend also seems to move.

I don't know why this happens. Suggestions are to install all updates, and
check the printer driver (change the default printer to something generic
and see if the behaviour still happens).

2. My workaround of going back each quarter and manually stretching the
plot
area back to fill the chart is also frustrating, time consuming, and
impossible to do perfectly the same in each of the 12 graphs because I'm
having to do it by eye.

You can stretch the plot area on one chart, then Copy and Paste Special
Formats on each of the other charts. That will make each chart the same.
Also make chart type etc the same.

Or, you could run something like this;

Sub SetChartAreas()
Dim oCht As ChartObject

For Each oCht In ActiveSheet.ChartObjects
oCht.Chart.PlotArea.Top = 10
oCht.Chart.PlotArea.Height = oCht.Height - 20
oCht.Chart.PlotArea.Left = 10
oCht.Chart.PlotArea.Width = oCht.Width - 20
Next
End Sub