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