XL 2013 Zoom image - mettre au 1er plan

[Jouxte]

Bonjour à toutes et tous,
J'utilise le code ci-dessous pour faire un zoom sur image.
J'aurai souhaité que quand on clique sur l'image pour zoomer elle se mette au 1er plan. j'ai essayé, sans succès, d'insérer l'instruction :
Selection.ShapeRange.ZOrder msoBringToFront

Par avance merci pour votre aide.

Sub GrossirImg()
    Static winit!
    Dim w!
    With ActiveSheet.Shapes(Application.Caller)
   
        If winit = 0 Then
            winit = .Width
            w = Application.CentimetersToPoints(10)
            .Width = w
            Else
            .Width = winit
            winit = 0
        End If
    End With
End Sub

 

[Staple1600]

Bonsoir @Jouxte

Et comme ceci ?

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

 

[Jouxte]

Bonjour Staple1600,
Merci beaucoup pour ce code qui fonctionne parfaitement et qui va bien me simplifier la vie.