Comment envoyer toutes mes images en arrière plan?

[romain95]

Bonjour,

(Premiers pas dans VBA)
Je parviens à envoyer une image en arrière plan avec par exemple :


Sub Macro4()
ActiveSheet.Shapes("Picture 47").Select
Selection.ShapeRange.ZOrder msoSendToBack
End Sub


Mais j'aimerai mettre toutes mes images en arrière plan et je ne sais pas quel code je dois mettre. Si quelqu'un peut m'aider...

Cordialement

Romain

 

[Minick]

Re : Comment envoyer toutes mes images en arrière plan?

Salut,

Essaie ca:

    Dim Shp As Shape
    
    For Each Shp In ActiveSheet.Shapes
        If UCase(Left(Shp.Name, 7)) = "PICTURE" Then
            Shp.ZOrder msoSendToBack
        End If
    Next Shp

 

[romain95]

Re : Comment envoyer toutes mes images en arrière plan?

Cool!!!
Merci beaucoup, on dirait bien que ça fonctionne.