无论条形数量如何，都要保持水平条形图的恒定条形高度

Question

我正在使用VBA创建水平条形图。图表中的数字条是在运行时定义的。我希望在具有不同数量条形图的图表上保持恒定的条形高度。我只发现我可以操纵图表的.GapWidth和.Height，目前正在调整.Height以保持一个恒定的高度。

我正在做这个数学计算总图表_高度

TOP_AND_BOTTOM_BUFFER = 20
BAR_HEIGHT = 10
GAP_PERCENT = 0.5       ' 50% of the BAR_HEIGHT
chart_height = num_bars * (BAR_HEIGHT + BAR_HEIGHT * GAP_PERCENT) + TOP_AND_BOTTOM_BUFFER
With ActiveChart
    .Parent.Height = chart_height
End With

但是，我得到一个非恒定的条形高度 ，特别是当条形数为1时，条形被压扁

8元素条形图

5元素条形图

1元素图表，它出错了