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