Excel VB, área de exibição automática quando a mudança de forma

Question

Como posso atualizar automaticamente a área calculada quando altero a dimensão da forma. Minha codificação atual como abaixo:

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

O Excel não possui eventos internos para formas.

Você pode experimentar este suplemento que oferece a funcionalidade desejada: link

(Eu não tentei ainda, apenas encontrei na internet)

Depois de ter esse evento, você pode simplesmente mover seu código para ele.