暂停程序允许用户绘制矩形（VSTO excel AddIn，vb.net）

我打算创建一个缩放工具，用户可以通过单击并拖动矩形区域来放大图表。

我已经创建了一个功能区，并在其中添加了一个名为放大的按钮，并为按钮单击事件添加了一些代码。

下面是代码中出错的部分：

shapeCount=全局s.ThisAddIN.Application.ActiveChart.Shapes.Count

Globals.ThisAddIN.Application.CommandBars（“基本形状”）.Controls（1）.Execute（）

DoGlobals.ThisAddIN.Application.DoEvents（）

循环直到Globals.ThisAddIN.Application.ActiveChart.Shapes.Count=形状计数+1

我希望程序暂停，让用户完成在图表上绘制矩形，然后继续运行下面的代码。然而，程序仍在运行，excel被冻结。无法绘制矩形。

有什么提示吗？谢谢！