Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CellPrint[Cell[BoxData[
- ToBoxes[Graphics[{Circle[]}, ImageSize -> {Automatic, Automatic}]]
- ], "Output", CellTags -> "MyGraphic"]]
- Dynamic[Refresh[
- InputForm @@
- MakeExpression@
- First@First@Cases[NotebookGet[EvaluationNotebook[]][[1]]
- , Cell[___, CellTags -> "MyGraphic", ___]
- , Infinity
- ], UpdateInterval -> 1]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement