BarChart – Maintain ChartElementFunction when changing PlotRange

Here is a BarChart of some data

data = {90, 91, 95, 103, 107, 102, 107, 105, 98, 96}  {90, 91, 95, 103, 107, 102, 107, 105, 98, 96}  BarChart[data, ChartElementFunction -> "GradientScaleRectangle"] 

enter image description here

When I add PlotRange the color goes away.

BarChart[data, ChartElementFunction -> "GradientScaleRectangle",   PlotRange -> {80, 120}] 

enter image description here

Is it possible to work around this?