Re: Re: presentation layout
- To: mathgroup at smc.vnet.net
- Subject: [mg39934] Re: [mg39917] Re: [mg39826] presentation layout
- From: Dr Bob <drbob at bigfoot.com>
- Date: Wed, 12 Mar 2003 02:29:59 -0500 (EST)
- References: <200303110738.CAA08728@smc.vnet.net>
- Reply-to: drbob at bigfoot.com
- Sender: owner-wri-mathgroup at wolfram.com
This avoids displaying the Sin curve twice:
text = "Some text.";
table = {{1, 2, 3}, {4, 5, 6}, {7, 8, 9}};
graph = Block[{$DisplayFunction = Identity}, 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"]];
Bobby
On Tue, 11 Mar 2003 02:38:53 -0500 (EST), Omega Consulting
<info at omegaconsultinggroup.com> wrote:
> 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
>
>
>
--
majort at cox-internet.com
Bobby R. Treat
- References:
- Re: presentation layout
- From: Omega Consulting <info@omegaconsultinggroup.com>
- Re: presentation layout