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

Extracting graphics from notebook

• To: mathgroup at smc.vnet.net
• Subject: [mg115442] Extracting graphics from notebook
• From: Chris Degnen <degnen at cwgsy.net>
• Date: Tue, 11 Jan 2011 00:35:08 -0500 (EST)

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