Comment agrandir une image quand on clique dessus ?

Associe cette macro à ton image :

sub Image1_QuandClic()
  ' x : Facteur d'agrandissement
  ' Exemples:
  ' x = 3 (trois fois plus grande)
  ' x = 1/2 (deux fois plus petite)
  x = 2
  With ActiveSheet.Shapes(Application.Caller)
    L = .Left
    T = .Top
    W = .Width
    H = .Height
    .Left = L - (x - 1) * W / 2
    .Top = T - (x - 1) * H / 2
    .Width = x * W
    .Height = x * H
  End With
 end sub