element =
 SphericalPlot3D[
  1 + Sin[5 [Phi]]/5, {[Theta], 0, Pi}, {[Phi], 0, 2 Pi},
  PlotStyle ->
   Directive[Orange, Opacity[0.7], Specularity[White, 10]],
  Mesh -> None, PlotPoints -> 30, Boxed -> False, Axes -> None];

BubbleChart3D[RandomReal[1,{10,4}], ChartElements->element]

obj = First@SphericalPlot3D[1 + 2 Cos[2 θ], {θ, 0, Pi}, {ϕ, 0, 2 Pi}];

pts = RandomReal[20, {10, 3}];

Graphics3D@Translate[obj, pts]