One can also do the series of expansion of e^(i pi)
ListPlot[Table[ReIm[Sum[(I \[Pi])^n/n!, {n, 0, m}]], {m, 0, 10}],
Joined -> True]

or a ParametricPlot of the evaluated form
ParametricPlot[
Evaluate[ReIm[Sum[(I \[Pi])^n/n!, {n, 0, m}]]], {m, 0, 20},
PlotRange -> All]
