Hi Richard,
You can use ChartStyle
SeedRandom[123];
Histogram[
Table[RandomReal[{First[partitions], Last[partitions]}], 100], {partitions},
PlotRange -> {{0, Automatic}, {0, Automatic}},
Ticks -> {Round[#, 0.1] & /@ partitionCenters, Automatic},
AxesStyle -> {{Black, 11}, {Black, 11}},
AspectRatio -> 160/352,
ImageSize -> {352, 160},
ChartStyle -> binHues]