Sub GrossirImg()
Static winit!
Dim w!, s As Shape
Set s = ActiveSheet.Shapes(Application.Caller)
If winit = 0 Then
winit = s.Width
w = Application.CentimetersToPoints(10)
s.Width = w
s.ZOrder msoBringToFront
Else
s.Width = winit
s.ZOrder msoSendToBack
winit = 0
End If
End Sub