Excel vba直方圖bin

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的間隔計我可以做到這一點在未自動的方式在圖表上

- 右單擊，然後選擇「繪圖區格式」，

-in出現，點擊「繪圖區域選項」下拉菜單並選擇「水平軸」側邊欄，

- 點擊直方圖圖標，然後打開下拉菜單f或「軸選項」，然後

- 點擊「Bin Width」項並點擊「10.0」。

我試着錄製宏，但是我沒有得到任何東西。任何想法如何使用VBA做到這一點？

Answer 1

Excel 2016中的新圖表類型（其直方圖爲一個）尚未完全支持VBA，並且並非所有圖表屬性都暴露給VBA對象模型。這就是爲什麼你沒有看到宏記錄器返回的任何東西。

如果您已經使用VBA，您還可以在VBA中生成您的容器，使用公式（或VBA）聚合數據，然後繪製標準的柱形圖。