MathGroup Archive 2002

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

Search the Archive

more Export trouble

  • To: mathgroup at smc.vnet.net
  • Subject: [mg36517] more Export trouble
  • From: Selwyn Hollis <slhollis at earthlink.net>
  • Date: Tue, 10 Sep 2002 06:24:50 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

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: Basic textual Typesetting question
  • Next by Date: Re: incomplete multiplelistplot
  • Previous by thread: Re: Basic textual Typesetting question
  • Next by thread: Re: more Export trouble