Excel VB，形状改变时自动显示区域

Question

当我更改形状尺寸时，如何自动刷新计算的面积。我当前的编码如下：

Sub ShowArea()
    Dim Width As Single
    Dim Height As Single

    Width = Selection.ShapeRange(1).Width / 72
    Height = Selection.ShapeRange(1).Height / 72

     With Selection.ShapeRange(1)

            Selection.ShapeRange(1).TextFrame.Characters.Text = Round(Width * Height, 1)

    End With
End Sub

Answer 1

Excel 没有针对形状的内置事件。

您可以尝试这个提供所需功能的插件：https://www.add-in-express.com/creating-addins-blog/2012/02/21/excel-shapes-events/

（我还没试过，只是在网上找到的）

一旦您有了这些事件，您就可以简单地将您的代码移入其中。