VBA设置直方图中的存储箱数_Vba_Excel

VBA设置直方图中的存储箱数

vba excel

VBA设置直方图中的存储箱数,vba,excel,Vba,Excel,我试图在更新源范围后，将Excel直方图中的箱数设置为25。我是通过使用Excel宏记录器获得基本代码的，所以我希望它能正常工作当我运行宏时，源范围将更新，但箱子计数仍保留在默认选项“自动”中。此外，子例程没有抛出任何错误 Sub UpdateHistogram(UpdateRow as Integer) ActiveSheet.ChartObjects("My Chart").Activate Application.CutCopyMode = False ActiveChar

我试图在更新源范围后，将Excel直方图中的箱数设置为25。我是通过使用Excel宏记录器获得基本代码的，所以我希望它能正常工作

当我运行宏时，源范围将更新，但箱子计数仍保留在默认选项“自动”中。此外，子例程没有抛出任何错误

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