Excel VBA直方图bin

我正在使用VBA创build一个直方图。 我有“原始数据”表单上的数据。 我可以使用数据创build图表,然后使用下面的代码剪切并粘贴到我的“摘要”选项卡中。

' ' Histogram of Entries ' Sheets("Raw Data").Select Range("F" & intFirstRow + 1 & ":F" & intLastRow).Select ActiveSheet.Shapes.AddChart2(-1, xlHistogram).Select Selection.Cut Sheets("Summary").Select ActiveSheet.Paste With ActiveSheet.Shapes("Chart 3") ' Reposition the chart .IncrementLeft Range("E17").Left .IncrementTop Range("E17").Top End With 

我正在努力的是,我需要调整箱的宽度,使图表显示在10间隔项的数量。我可以做到这一点在非自动化的方式

右键点击图表,然后select“格式绘图区”,

在出现的边栏中,点击“Plot Area Options”下拉菜单并select“Horizo​​ntal Axis”,

点击直方图图标,然后打开“轴选项”的下拉菜单

点击“Bin Width”项目并input“10.0”。

我尝试着录制macros,但是我什么也没有。 任何想法如何使用VBA做到这一点?

Excel 2016中的新图表types(其直方图为一)尚未完全支持VBA,并且并非所有图表属性都暴露给VBA对象模型。 这就是为什么你没有看到macroslogging器返回的任何东西。

如果您已经使用VBA,则可以在VBA中生成您的容器,使用公式(或VBA)聚合数据,然后绘制标准的柱形图。