CellPrint[ Cell @@ MathLink`CallFrontEnd@ FrontEnd`ConvertToBitmapPacket@ Cell[BoxData@ToBoxes@Manipulate[x, {x, 0, 1}], "Output"] ]