Bom dia Gurus do Excel, espero que se encontrem todos bem.

Eu preciso de uma ajuda. Alguém sabe com fazer uma rotina que ao passar o rato sobre uma imagem no excel, ela aumenta de tamanho? Eu tenho este código que aumenta/diminui quando clico na imagem, mas não consegui adaptar porque os meus conhecimentos em VBA ainda são muito básicos.

Sub Picture1_Click()
  Dim shp As Shape
  Dim big As Single, small As Single
  Dim shpDouH As Double, shpDouOriH As Double
  big = 3
  small = 1
  On Error Resume Next
  Set shp = ActiveSheet.Shapes(Application.Caller)
  With shp
    shpDouH = .Height
    .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
    shpDouOriH = .Height
    
    If Round(shpDouH / shpDouOriH, 2) = big Then
      .ScaleHeight small, msoTrue, msoScaleFromTopLeft
      .ScaleWidth small, msoTrue, msoScaleFromTopLeft
      .ZOrder msoSendToBack
    Else
      .ScaleHeight big, msoTrue, msoScaleFromTopLeft
      .ScaleWidth big, msoTrue, msoScaleFromTopLeft
      .ZOrder msoBringToFront
    End If
  End With
End Sub

Obrigado, pela vossa colaboração.

Cumprimentos,

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.