用户停止滚动时将启动的宏（刷新屏幕以防止与形状相关的视觉错误）

错误的背后是我有一本工作簿，其中有几张纸有很多形状（包括箭头）。在图纸上滚动时，可能会发生形状不刷新的情况。箭头变得不可见，形状轮廓变得点缀。形状仍然非常多-有时箭头只是部分不可见。在网上搜索后，我发现当一张纸有很多形状时，这是一个已知的错误。它与显示器刷新无关-我有双显示器，将Excel从一台显示器移到另一台显示器不会刷新。不过，有几种方法可以做到-1）选择形状后面的单元格2）最小化和最大化excel 3）选择形状本身（有时可行）。

我的解决方法和问题是我做了一个宏来刷新形状。基本上，它会选择所有单元格，然后眨眼间返回到活动单元格。我必须立即在VBE中或使用按钮启动宏，但是它可以正常运行：

Sub refreshShapes()
    Application.ScreenUpdating = False
    Dim active As Range
    Set active = ActiveCell

    Cells.Select
    active.Select
    Application.ScreenUpdating = True
End Sub

现在，我希望此宏在用户每次滚动工作表并停止滚动时启动，因为该错误仅在此之后发生。有没有一种方法可以不使用计时器？有另一种已知方法可以更好地防止此错误/工作吗？