Excel VB, Auto pokaż obszar po zmianie kształtu

Jak mogę automatycznie odświeżać obliczony obszar po zmianie wymiaru kształtu? Moje obecne kodowanie jak poniżej:

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

Excel nie ma wbudowanych zdarzeń dla kształtów.

Możesz wypróbować ten dodatek, który oferuje pożądaną funkcjonalność: https://www.add-in-express.com/creating-addins-blog/2012/02/21/excel-shapes-events/

(Jeszcze tego nie próbowałem, właśnie znalazłem w Internecie)

Gdy będziesz mieć te wydarzenia, możesz po prostu przenieść do niego swój kod.