Services & Resources / Wolfram Forums
MathGroup Archive
*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
  • Subject: [mg36545] Re: more Export trouble
  • From: Jens-Peer Kuska <kuska at>
  • Date: Wed, 11 Sep 2002 13:27:24 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <alki3l$109$>
  • Reply-to: kuska at
  • Sender: owner-wri-mathgroup at


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[]


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