Hi Brad, I hope this will help. See attached examples in file BarChart.nb.
data = RandomInteger[{1, 5}, 5];
BarChart[{data}
, ChartElementFunction -> "GlassRectangle"
, LabelingFunction -> (Placed[# "%", Center] &)
, ChartLabels -> {"1", "2", "3", "4", "5"}
, PlotRange -> {Automatic, 6}
, Joined -> Automatic
, PlotLabel -> Style["Test [%]", "Title", 20]
, BaseStyle -> {FontFamily -> "Arial", FontWeight -> "Bold",
FontSize -> 11}
, ChartStyle -> 45]
Attachments: