Bonsoir,
Salut Florian53 ! Je ne sais pas ce que j'ai pu dire dans le sujet auquel tu renvoies... (je regarderai ensuite). Mais là il me semblerait judicieux de se simplifier la vie :
Sub ZoomUnzoom()
Dim img As Shape, nimg$
nimg = Application.Caller
Set img = ActiveSheet.Shapes(nimg)
With img
If nimg Like "zoom*" Then
.Name = Replace(.Name, "zoom", "")
.Width = .Width / 2
Else
.Name = "zoom" & .Name
.Width = .Width * 2
End If
End With
End Sub
J'ai retenu 2 car cela fait un grossissement x4. On peut éventuellement rendre le facteur de zoom variable. Et la même procédure zoome et dézoome.
Cordialement.