Re: Formatting a Cell Programmatically
- To: mathgroup at smc.vnet.net
- Subject: [mg116760] Re: Formatting a Cell Programmatically
- From: Simon <simonjtyler at gmail.com>
- Date: Sat, 26 Feb 2011 06:08:23 -0500 (EST)
- References: <ik8493$n1v$1@smc.vnet.net>
You could try something like
CellPrint[
Cell[BoxData[ToBoxes[Table[{x, Sqrt[x], x^3}, {x, 0, 100}]]],
"Output", CellFrame -> True,
Background -> RGBColor[0.94, 0.91, 0.88]]]
OR
Table[{x, Sqrt[x], x^3}, {x, 0, 100}]
SelectionMove[EvaluationNotebook[], Previous, Cell]
SetOptions[NotebookSelection[], CellFrame -> True, Background ->
RGBColor[0.94, 0.91, 0.88]]