g = ExampleData[{"Geometry3D", "Cow"}];
BarChart3D[Range[5], ChartElements -> g, ChartStyle -> "Pastel"]