[Date Index] [Thread Index] [Author Index]

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]]