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

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