Hello,
I am not sure if I understand your question, so please excuse my answer if I have misunderstood.
How about something like this:
With[{points = SpherePoints[24], length = 10},
Manipulate[
Graphics3D[{{Yellow, Opacity[0.5], Sphere[{0, 0, 0}, 10 r]},
Arrow[Tube[{10 r #, 10 r # + # length/r^3}]] & /@ points},
PlotRange -> 40 {{-1, 1}, {-1, 1}, {-1, 1}}],
{{r, 1}, .5, 10}
]
]
I made the visualization sphere artificially large here, but that helps with the visualization I think.