Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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



  • Prev by Date: DesignerUnits 2011-01-08 for Mathematica 8, 7, 6
  • Next by Date: Re: curve fitting question
  • Previous by thread: Re: DesignerUnits 2011-01-08 for Mathematica 8, 7, 6
  • Next by thread: Re: Extracting graphics from notebook