text=First[First[ImportString[ExportString[Style["Wolfram",FontSize->24,FontFamily->"Times"],"PDF"]]]];

Graphics[{EdgeForm[Opacity[0.25]],Table[{ColorData["TemperatureMap"][t],Translate[text,4 {-t,t}]},{t,0,1,1/10}]},ImageSize->Medium]