Needs["CustomTicks`"]
temp = Table[
   If[{x, y, z} == {2, .2, .02}, 1, 0], {z, 0, .1, .005}, {y, 0,
    1, .1}, {x, 0, 10, 2}];

{xmax, ymax, zmax} = {10, 1, .1};
{zdim, ydim, xdim} = Dimensions[colorArray][[;; 3]];

Show[Image3D[#], ViewPoint -> {1.3, -2.4, 2}, SphericalRegion -> True,
    Boxed -> True, BoxRatios -> {1, 1, 1}, Axes -> True,
   AxesLabel -> {"X", "Y", "Z"}, ImageSize -> 350,
   ImageResolution -> 750,
   Ticks -> {LinTicks[0, 10,
      TickPostTransformation -> (# xdim/xmax &)],
     LinTicks[0, 1, TickPostTransformation -> (# ydim/ymax &)],
     LinTicks[0, .1,
      TickPostTransformation -> (# zdim/zmax &)]}] & /@ {temp,
  Reverse[temp, {1, 2, 3}], Reverse[temp, {1, 2}]}