RE: Centering Text Cell

*To*: mathgroup at smc.vnet.net*Subject*: [mg72380] RE: [mg72298] Centering Text Cell*From*: "David Park" <djmp at earthlink.net>*Date*: Sat, 23 Dec 2006 06:14:39 -0500 (EST)

From: Bruce Colletti [mailto:vze269bv at verizon.net] Hi Bruce, Why not use the CellMargins option? Plot[x^2, {x, -3, 3}]; CellPrint[Cell[BoxData[ GridBox[{{"Column I", "Column II"}, {"Row1", "Code1"}, {"Row2", "Code2"}}, ColumnAlignments -> {Right, Left}] ], "Text", CellMargins -> {{130, Automatic}, {Inherited, Inherited}}]]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ Re Mathematica 5.2 under WinXP. In the code below, output cell #2 is the "caption" of output cell #1. How would I center the caption under the graphic, if it can be done at all? Tech support has crafted a clever solution that uses scaled coordinates and Epilog to create a single output cell. However, I wonder if this centering can be done while keeping the two output cells intact. If so, then "maintaining" the caption becomes easier. Thankx. Bruce Plot[x^2, {x, -3, 3}]; CellPrint[Cell[BoxData[ GridBox[{{"Column I", "Column II"}, {"Row1", "Code1"}, {"Row2", "Code2"}}, ColumnAlignments -> {Right, Left}] ], "Text"]];