There doesn't seem to be any easy way, but everything's possible:
p = Plot[Sin[x], {x, -5, 5}];
Show[FullGraphics[p], ImageSize -> 500,
AspectRatio -> 1/GoldenRatio] /. {
Text[t_, p_, {0., 1.}] :> Text[t, {p[[1]], p[[2]] + .1}, {0, -1}],
Text[t_, p_, {1., 0.}] :> Text[t, {p[[1]] + .25, p[[2]]}, {-1, 0}]
}
But from what I've read (and according to this quick test)
FullGraphics isn't considered to be a reliable and problem-free Mathematica function. The tick marks have shrunk a bit, for example...
