Re: more Export trouble
- To: mathgroup at smc.vnet.net
- Subject: [mg36545] Re: more Export trouble
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 11 Sep 2002 13:27:24 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <alki3l$109$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
not with Mathematica 4.2. But the problem can be the page width
that may be used to convert the Cell[], if you can you should
use the Graphics[]/Graphics3D[] .. inside the Cell or
the PostScript string in the GraphicsData[]
Regards
Jens
Selwyn Hollis wrote:
>
> The following is a button that will export a selected graphic as a JPEG,
> with filename constructed from Date[].
>
> ButtonBox["JPEG",
> ButtonFunction :>
> Module[{sel},
> SelectionMove[InputNotebook[], All, Cell];
> sel = NotebookRead[InputNotebook[]];
> If[Head[sel] === Cell,
> If[!ValueQ[dpi], dpi = Automatic];
> Export[StringJoin[ToString /@ Rest[Date[]]]<>".jpg", sel,
> ImageSize -> Automatic, ImageResolution -> dpi,
> ConversionOptions -> {"Quality" -> 75}]]],
> ButtonEvaluator -> Automatic, Active -> True]//DisplayForm
>
> It works fine as long as the graphic is no wider than about 330 pixels.
> If the graphic is wider than 330 pixels, then the size of exported
> graphic is correct, but everything on the right beyond the first 330
> pixels is blank. There seems to be no problem with the height though.
>
> Any ideas on how to fix or get around this problem?
>
> ---
> Selwyn Hollis