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