Agrandir et réduire plus images distinctes

Bonjour à tous,

J'aimerais savoir s'il existe une possibilité (macro ou autre) d'agrandir avec des paramètres prédéfinis et de réduire à sa taille originelle en cliquant un deuxième fois plusieurs images (des centaines) sans être contraint d'y associer une image en particulier afin d'éviter de se retrouver avec une image, une macro.

Merci à l'avance pour votre précieuse collaboration.

Salutations,

Renaud

Salut le forum

Avec une macro unique, affectée à chaque image

Sub Image()
 With ActiveSheet.Shapes(Application.Caller)
  If .AlternativeText = "" Then
    .ScaleWidth 2, msoFalse, msoScaleFromTopLeft
    .ScaleHeight 2, msoFalse, msoScaleFromTopLeft
    .AlternativeText = "zoom"
  Else
    .ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
    .ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
    .AlternativeText = ""
  End If
 End With
End Sub

Mytå

Merci beaucoup Mytå pour votre aide fort apprécié.

Votre macro fonctionne comme je le veux.

Salutations,

Renaud

Re le forum

Bien heureux que ton problème soit solutionné.

Mais il ne faut pas oublier de le faire passer en [Résolu]

Mytå