使用 VBA 禁止显示分析工具库直方图函数消息

Question

>问题概述：
我正在使用"分析工具包"中的Excel VBA直方图功能自动生成大约25个直方图。生成直方图时，它被放置在包含值的单元格的顶部，有效地隐藏它们(这对我来说没问题(。因此，将生成以下消息"直方图 - 某些数据将被嵌入图表隐藏"，并带有"确定"和"帮助"按钮。每当我运行此宏时，我都不想按"确定"25 次。

我尝试过的：

• Application.DisplayAlerts = False/True不适合我。我尝试将其放置在代码中的不同位置
• Application.ScreenUpdating = False/True
• 还尝试使用设置警告功能玩

代码 (1/25(：

Dim binrng As Range  
Set binrng = Sheets("PSDreport").Range("P4:P64")  
Dim outputrng As Range  
Set outputrng = Sheets("PSDreport").Range("Q3")  
Application.Run "Histogram", inprng, outputrng, binrng, False, False, True, False 

我的部分解决方案：

With Application  
//CODE GOES HERE//   
.SendKeys "{ENTER}"  
End With

我当前解决方案的问题：
请注意，所有生成直方图的代码段 (1/25( 都包裹在"With"周围。由于某种原因，生成的第一个直方图仍然产生弹出窗口(不好(。其余 24 个成功跳过弹出窗口，但仍会产生弹出窗口的噪音(轻微烦恼(。

我正在寻找一种更优雅的方式来解决这个问题

Answer 1

当我尝试在我拥有源数据的同一工作表上输出嵌入的图表时，我也收到了此警告(您的"imprng"(。 将输出范围(outputrng(移动到其他工作表后，警告停止了。

Answer 2

派对有点晚了，但其他任何看到这个的人都应该尝试

有应用程序 .SendKeys "{ENTER}">
//CODE GOES HERE//
end with