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

Re: Extracting graphics from notebook

• To: mathgroup at smc.vnet.net
• Subject: [mg115459] Re: Extracting graphics from notebook
• From: John Fultz <jfultz at wolfram.com>
• Date: Tue, 11 Jan 2011 19:21:33 -0500 (EST)

On Tue, 11 Jan 2011 00:35:08 -0500 (EST), Chris Degnen wrote:
> Hi, Can anyone suggest how I can address a graphics object from a
> saved notebook.  In the example below the most I can do is to
> CellPrint the object, but I would like to set it to a variable.
>
>
> dir == Directory[];
>
> nb1 == CreateDocument[Plot[Sin[x], {x, 0, 2 Pi}],
> NotebookFileName -> dir <> "\\" <> "Sin2Pi.nb"];
>
> NotebookSave[nb1];
> NotebookClose[nb1];
>
> nb2 == NotebookOpen[dir <> "\\" <> "Sin2Pi.nb"];
>
> SelectionMove[nb2, Next, Cell]
>
> CellPrint[NotebookRead[nb2]]
> NotebookClose[nb2];

Converting the output of NotebookRead to the equivalent Mathematica expression
requires ToExpression.

expr == ToExpression[NotebookRead[nb2]];

Or you could do this manually by simply copying the graphic and pasting it into
an Input cell.

Sincerely,

John Fultz
jfultz at wolfram.com
User Interface Group
Wolfram Research, Inc.