VBA设置直方图

Question

我尝试在更新源范围后，将Excel直方图中的二进制数设置为25。我通过使用Excel宏录制器的基本代码得到了，所以我希望这可以工作。

当我运行宏时，源范围会更新，但bin计数仍保留在默认选项“automatic”中。此外，子程序不会抛出任何错误。

Sub UpdateHistogram(UpdateRow as Integer)

  ActiveSheet.ChartObjects("My Chart").Activate
  Application.CutCopyMode = False
  ActiveChart.SetSourceData Source:=Range("AZ211:AZ" & (UpdateRow))

  ActiveChart.Axes(xlCategory).Select
  ActiveChart.ChartGroups(1).BinsType = xlBinsTypeBinCount
  ActiveChart.ChartGroups(1).BinsCountValue = 25

End Sub