Molecule Plotting

MA=Molecule[{Atom["H"],Atom["H"],Atom["N"],Atom["C"],Atom["H"],
Atom["H"],Atom["C"],Atom["O"],Atom["O"],Atom["H"]},
{Bond[{1,3}],Bond[{2,3}],Bond[{3,4}],Bond[{4,5}],Bond[{4,6}],
Bond[{4,7}],Bond[{7,8},"Double"],Bond[{7,9}],Bond[{9,10}]}]
Multicolumn[Table[MoleculePlot3D[Molecule["NCC(=O)O"],
Style["H",RGBColor["steelblue"]],PlotTheme->theme,
Sequence[PlotLegends->Placed[Text[theme],Above],
Method->{"ShrinkWrap"->True},SphericalRegion->False,
ImageSize->300]],{theme,{"SpaceFilling" ,"Wireframe",
"Tubes","BallAndStick"}}],2]