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/

(Я еще не пробовал, просто нашел в интернете)

Как только у вас появятся эти события, вы можете просто перенести в них свой код.