How to prevent ShrinkWrap from removing text?

Question

Bug persisting through 11.2.0

---

When I use ShrinkWrap to remove the white space around my 3D graphics, it always removes any text around the edges. Say for example I plot a sphere and some text:

Show[Graphics3D[{Sphere[], Text[Style["ABC", 24], {1, 1, 1}]}], Boxed -> False]

And if I use ShrinkWrap, it removed the text and part of the sphere

Show[Graphics3D[{Sphere[], Text[Style["ABC", 24], {1, 1, 1}]}], Boxed -> False,
 Method -> {"ShrinkWrap" -> True}]

How to prevent this?

Answer 1

Try this to see if it works for you.

Show[Graphics3D[{Sphere[],Text[Style["ABC",24],{1,1,1}]}],
  Boxed->False,
  Method->{"ShrinkWrap"->True},
  ViewVector->{{9,2,2},{0,0,0}}
]

Update

Using ImagePadding -> 0, PlotRangePadding -> 0 helps a little, as given by comment by Simon woods in method-shrinkwrap-messes-up-editting-graphics But the text is still missing, but sphere is not cropped.

Show[Graphics3D[{Sphere[],Text[Style["ABC",24],{1,1,1}]}],
Boxed->False,Method->{"ShrinkWrap"->True},
ImagePadding->0,PlotRangePadding->0]