Translating Histogram

Update: An alternative approach is to use ChartElementFunction:

Histogram[data, Automatic, "Probability", ChartStyle -> "Rainbow",
 ChartElementFunction -> (ChartElementDataFunction["GlassRectangle"][1 + #, ##2] &),
 AxesOrigin -> {-3, 1}, PlotRange -> All]

---

Original post:

SeedRandom[1];
data = RandomVariate[NormalDistribution[], 100];
hist = Histogram[data, Automatic, "Probability"]

Show[MapAt[Translate[#, {1, 1}] &, hist, {1}], 
 AxesOrigin -> {-3, 1}, PlotRange -> {{-3, 4}, {1, 1.5}}]

Alternatively, post-process Rectangles:

Show[hist /. RectangleBox[{x0_, y0_}, {x1_, y1_}, z___] :> 
             RectangleBox[1 + {x0, y0}, 1 + {x1, y1}, z],
 AxesOrigin -> {-3, 1}, PlotRange -> {{-3, 4}, {1, 1.5}}]
(* same picture *)