Is there a work-around for SetOptions having no ImageSize option?

I’d like to set the output cell size to a specified height and width or to full screen as F12 does.

 data = Reverse[Sort[RandomReal[1, 5]]]; Module[{t = 0, len = Length[data], sum = Total[data]},   Graphics[Table[{Hue[i/len], EdgeForm[Opacity[.8]],      Disk[{0, 0}, 1, {t, t += 2 Pi data[[i]]/sum}]}, {i, len}]]]  SelectionMove[EvaluationNotebook[], Next, Cell] SetOptions[NotebookSelection[EvaluationNotebook[]], Background -> Red,   TextAlignment -> Center]