Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*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 2004

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

Search the Archive

Re: Convert all graphics to reduce file size?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg47464] Re: [mg47411] Convert all graphics to reduce file size?
  • From: Omega Consulting <info at omegaconsultinggroup.com>
  • Date: Tue, 13 Apr 2004 06:26:14 -0400 (EDT)
  • References: <200404090845.EAA03159@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

On Apr 9, 2004, at 3:45 AM, Peter Dickof wrote:

> I would like to convert the graphics in a large number of notebooks to
> save space. Jim Jennings wrote:
>
>> I know how to use the Cell->Convert To->Bitmap menu command to convert
>> selected graphics cells to Bitmap form.
>
> for the purpose of saving space, and P.J. Hinton wrote
>
>> There is an undocumented key-mouse combination that can be used to
>> select all cells of a given style.  The combination is
>> platform-specific:
>>
>> MacOS X : Option-Click
>> Windows : Alt-Left Click
>> X Window: Mod2-Mouse 1
>>
>> If you perform this operation while clicking on the bracket of a
>> Graphics style cell, then all cells having that same style will be 
>> selected.
>
> How can I write code to do this without any user intervention? I can
> use NotebookFind[nb,"Graphics",Next,CellStyle] to find each graphics
> cell in turn, but how do I tell Mathematica to do the conversion
> without mouse clicks?

To select all graphics cells:
NotebookFind[nb,"Graphics",All,CellStyle]

To convert the graphics, you have to use the command associated with 
the menu item. This is in a file called MenuSetup.tr. The command for 
this item is called a frontend token. It can be executed from the 
kernel with:

FrontEndExecute[{FrontEndToken[
   nb, "SelectionConvert", "Bitmap"
]}]

--------------------------------------------------------
Omega Consulting
The final answer to your Mathematica needs.
http://omegaconsultinggroup.com


  • Prev by Date: Re: NDSolve for Newtonian Orbits Question
  • Next by Date: RE: Re: Is there any productive way to use Mathematica + pdfLaTeX?
  • Previous by thread: Convert all graphics to reduce file size?
  • Next by thread: RE: Convert all graphics to reduce file size?