Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: presentation layout

• To: mathgroup at smc.vnet.net
• Subject: [mg39917] Re: [mg39826] presentation layout
• From: Omega Consulting <info at omegaconsultinggroup.com>
• Date: Tue, 11 Mar 2003 02:38:53 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

At 01:48 AM 3/8/2003, Beleznay, Akos wrote:

>Hi,
>
>I am working on a presentation.  What is the best way to arrange graphs,
>tables and text (like in PowerPoint)?
>
>  E.g.:
>================
>Title
>----------------
>|       | text |
>| graph |-------
>|       | table|
>----------------
>================
>
>thanks for your help,
>
>-akos

Some judicious use of GridBoxes will do the trick.

text = "Some text.";
table={{1,2,3},{4,5,6},{7,8,9}};
graph=Plot[Sin[x],{x,0,2Pi}];

cell=Cell[GraphicsData["PostScript", DisplayString[graph]]];

CellPrint[Cell[BoxData[
       GridBox[{{cell,
             GridBox[{{text},{GridBox[table]}},RowsEqual->True,
               RowLines->True, RowSpacings->10]}},
         RowAlignments->Center, ColumnLines->True,
         GridFrame->True]
       ],"Text"]]

--------------------------------------------------------------
Omega Consulting
"The final answer to your Mathematica needs"
http://omegaconsultinggroup.com

• Follow-Ups:
  • Re: Re: presentation layout
    • From: Dr Bob <drbob@bigfoot.com>