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]
