使用VBA为每个工作表创build直方图

您好，我正在尝试为工作簿中的每个工作表创build一个直方图。 在每个工作表中，我有这两列值：
（1）input范围（我想分析的数据），用我的代码中的“pasteRange”表示。
（2）Bin Range（我想用于分析的时间间隔），用我的代码中的“pasteRange2”表示。

我希望：
创build直方图表和直方图graphics。 该表应该位于单元格AK23，并且图表应该跨越每个工作表中的N2：S20。
我到目前为止的代码不会生成表，每当我运行它的时候popup一个窗口，并要求我按OK来覆盖数据。 如果我一直按OK，VBA会崩溃，如果按Cancel，只有最后一张工作表生成表格。 在工作表中只创build了一个图表，并且没有数据（图表代码从运行macros复制）…

我不是一个CS专业，VBA新手 – 抱歉，如果这个问题很愚蠢，非常感谢你的帮助！

我到目前为止的代码是：

Dim I As Integer Dim pasteRange As Range Dim pasteRange2 As Range WS_Count = ActiveWorkbook.Worksheets.Count For I = 8 to WS_Count Set pasteRange = ... Set pasteRange2 = ...(these are irrelevant so are excluded here) Application.Run "ATPVBAEN.XLAM!Histogram", pasteRange, ActiveSheet.Range("$AK$23"), pasteRange2, False, False, True, False ActiveSheet.Shapes("Chart 1").IncrementLeft -31.2 ActiveSheet.Shapes("Chart 1").IncrementTop -1.2 ActiveSheet.ChartObjects("Chart 1").Activate ActiveSheet.Shapes("Chart 1").ScaleWidth 1.3541666667, msoFalse, _ msoScaleFromTopLeft Next I