Par Macro, supprimer tous les GIF

malabarbe · 13 Septembre 2010

Bonjour à tous,

Je copie une page Web dans une feuille Excel,
mais je me retrouve avec une dizaine d'images
au format GIF.

Est-t'il possible de supprimer ces images sachant
qu'une fois copiées dans la feuille, elles n'ont
plus de noms ni d'extentions ?

Si vous avez une idée

Pierrot93 · 13 Septembre 2010

Re : Par Macro, supprimer tous les GIF

Bonjour,

sans voir les objets, difficile à dire, mais essaye ceci, supprimera tous les objets de type "image", à voir si cela peut t'aider...

Code:

Dim s As Shape
For Each s In ActiveSheet.Shapes
    If s.Type = msoPicture Then s.Delete
Next s

bon après midi
@+

malabarbe · 13 Septembre 2010

Re : Par Macro, supprimer tous les GIF

Bonjour Pierrot93,

Ok, cela fonctionne parfaitement.

Un Grand Merci

@ +

Par Macro, supprimer tous les GIF

malabarbe

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

malabarbe

XLDnaute Occasionnel

Discussions similaires

Par Macro, supprimer tous les GIF

malabarbe

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

malabarbe

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency