suppression de toutes les images

[tigrou42]

Bonjour
Je veux supprimé toutes les images de ma feuille excel (environ 1000) dans une macro
J'arrive à les supprimé en ayant le nom de l'image mais pour toutes les supprimé en meme temps pas moyen 🙁
Donc mon problème est de pouvoir sélectionné toutes les images en même temps avec une macro
Merci d'avance

 

[Tibo]

Re : suppression de toutes les images

Salut Tigrou,

Pour supprimer tous les objets sur une feuille, tu peux faire ceci :

- Taper F5 (pas trop fort)
- Cliquer sur Cellules puis Objets OK
- Taper SUPPR

Enregistre la même manip avec l'enregistreur de macros, ça devrait te donner la solution VBA

Bonne soirée

@+

 

[tigrou42]

Re : suppression de toutes les images

merci pour ta réponse aussi rapide 😉

j'ai essayé ta solution
le problème c'est que ca ne me sélectionne pas que les images, ca me sélectionne également des boutons que je ne veux pas enlever🙁

 

[MichelXld]

Re : suppression de toutes les images

bonsoir Tigrou, bonsoir cher Tibo


tu peux tester

Dim Obj As Shape
 
'Boucle sur les formes contenues dans la feuille
For Each Obj In Worksheets("Feuil1").Shapes
    If Obj.Type = msoPicture Then Obj.Delete
Next Obj

Bonne soirée
MichelXld

 

[tigrou42]

Re : suppression de toutes les images

Merci beaucoup, c'est exactement ce que je cherchais 😀

Bonne soirée
@+