gra = HoldForm[Graphics[{Circle[]},ImageSize->{100,Automatic}]];
    (* gra /. Hyperlink[a_, _] -> a *)
    graOutput = ReleaseHold[gra];
    (*Might be used to toggle hyperlinks.*)
    graToggle = True;
    Print[Button["Disable/Enable Hyperlinks",
        SelectionMove[InputNotebook[], All, Cell];
        Print[
         ToExpression[
          Apply[InputForm,
           MakeExpression[First[NotebookRead[nb]],
            StandardForm]]]];]
    Button["Edit Hyperlink For Object",
        shape = NotebookRead[SelectedNotebook[]];
        If[Head[shape] == GraphicsBox,
          MessageDialog["Unable to add Hyperlink to GraphicsBox"];
          Return[], Null] NotebookWrite[SelectedNotebook[],
          TagBox[shape,
           EventHandlerTag[{"MouseClicked" :>
              FrontEndExecute[{NotebookLocate[{URL[
                   FindFile["./C# editor.nb"]], None}]}],
             PassEventsDown -> Automatic, PassEventsUp -> True}]]];]];
    Print[graOutput];