3D HighlightGraph Examples

With[{l="HighDimensionalEmbedding"},
GraphPlot3D[HighlightGraph[GraphData["HundredTwentyCellGraph",
"Edges"],Table[Style[_ <-> i,
ColorData["Rainbow"][Pi*i/1800]],{i,Range[1,600,3]}]],
VertexSize->0,GraphLayout->l,ImageSize->600]]