How to convert Legends into graphics

First @ Cases[
  ToBoxes @ BarLegend["Rainbow"],
  gr_GraphicsBox :> ToExpression[gr],
  ∞
]

Also

ToExpression[MakeBoxes[BarLegend["Rainbow"]][[1,1]]][[1]]

Related