data = RandomInteger[{5 10^4, 10^5}, 15];
PieChart3D[data, ChartStyle -> 54, SectorOrigin -> {Automatic, 1}, ChartElementFunction -> "ProfileSector3D", ChartLabels -> (Placed[ CharacterRange["A", "Z"], "RadialCallout"]), PlotRange -> All, ChartBaseStyle -> EdgeForm[], Background -> GrayLevel[0.9]]