Getting closer: `GraphPlot3D[ChemicalData["VanadiumIVOxide", "EdgeRules"],
EdgeRenderingFunction -> (Cylinder[#1, .05] &),
VertexRenderingFunction -> ({ColorData["Atoms"][
RandomInteger[{1, 117}]], Sphere[#1, .15]} &),
PlotStyle -> Directive[Specularity[White, 20]], Boxed -> False]`