Discussion :

[ancel17]

Bonjour,

Existe-t-il un moyen simple sous VBA, de supprimer toutes les images d'une feuille ?

Merci !

[DeaD78]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim img As Object
 
For Each img In Sheets("Feuil1").Shapes
    img.Delete
Next

Bonne chance pour la suite !

[ancel17]

Merci pour ta solution DeaD78 !

J'en ai trouvé une également de mon coté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
fl.Shapes.SelectAll
Selection.Delete

avec évidemment fl l'objet worksheet où sont situé les images à supprimer.

A bientôt

[DeaD78]

Evite les .Select en VBA Ca ralentit le code surtout si tu as beaucoup d'images