Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

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


  • Prev by Date: RE: Coloured lines in graphics but black in print
  • Next by Date: Empirical CDF and InterpolatingFunction
  • Previous by thread: more Export trouble
  • Next by thread: help in Numerical Intergation