I am trying to convert a Cell expression to an image.

I created a new notebook and copied the cells that need to be rendered.

nb = CreateDocument[{},
    WindowSelected -> False, Visible -> True,
    WindowSize -> 650, StyleDefinitions -> "Default.nb"
(*Find and Copy the Cell Groups*)
image = Rasterize[nb, "Image"]

I want to automate this process now,finding all the Input|Output groups and render.

A Input|Output Group should be defined from Input to the last GeneratedCell, including Print, Message, etc.

enter image description here

Cell Style "Code" and "Program" also have Output, but I hope to eliminate them.

  • $\begingroup$ Do you care about In[]/Out[]? or only about contents? $\endgroup$
    – Kuba
    Commented Nov 3, 2018 at 10:14
  • $\begingroup$ Yes,best to keep, I think it's Useful and beautiful. $\endgroup$
    – Aster
    Commented Nov 3, 2018 at 10:42

1 Answer 1


Let me know if this fits your needs:

rasterizeInOut[nb_NotebookObject] := Module[{printNb, image, cells},
  printNb = CreateDocument[{}, Visible -> False];
  cells = Cells[nb, CellStyle -> {"Input"}];
  cells = Flatten[
      Lookup[Developer`CellInformation[#], "FirstCellInGroup"], 
      SelectionMove[#, All, CellGroup]; SelectedCells[nb], 
    ] & /@ cells
  NotebookWrite[printNb, #] & /@ NotebookRead /@ cells;
  image = Rasterize @ printNb;
  NotebookClose @ printNb;

rasterizeInOut @ nb

On the left there is a source nb and on the right an image generated from filtered source:

enter image description here

  • $\begingroup$ Nice, this works. One more question, is it possible to insert an In[ ] when there only one input cell in notebook.For example, run itself in one cell: rasterizeInOut@EvaluationNotebook[] $\endgroup$
    – Aster
    Commented Nov 3, 2018 at 11:33
  • $\begingroup$ Strange it is not included, will try to take a closer look later. $\endgroup$
    – Kuba
    Commented Nov 3, 2018 at 11:40

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.