Question

我正在使用VBA创建直方图。我有关于“原始数据”表的数据。我可以使用数据创建图表，然后使用下面的代码剪切并粘贴到我的“摘要”选项卡。

'
' 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为间隔显示项目数。我可以通过非自动方式完成此操作

- 右键单击图表，然后选择“格式图区”，

- 在出现的侧栏中，单击“绘图区选项”下拉列表并选择“水平轴”，

- 点击直方图图标，然后打开“轴选项”的下拉列表，然后

- 点击“Bin Width”项目并输入“10.0”。

我尝试在执行此操作时录制宏，但我一无所获。知道如何使用VBA这样做吗？

Answer 1

Excel 2016中的新图表类型（其中直方图为1）尚未完全支持VBA，并且并非所有图表属性都公开给VBA对象模型。这就是为什么你没有看到宏录制器返回的任何内容。

如果您已经使用过VBA，您也可以在VBA中生成垃圾箱，使用公式（或VBA）聚合数据，然后绘制标准柱形图。

Excel vba直方图bin

1 个答案: