suppression de toutes les images

Tibo

XLDnaute Barbatruc

• 29 Novembre 2006

• #2

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

@+

 

Vote positif 0 Vote négatif

T

tigrou42

XLDnaute Nouveau

• 29 Novembre 2006

• #3

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🙁

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 29 Novembre 2006

• #4

Re : suppression de toutes les images

bonsoir Tigrou, bonsoir cher Tibo


tu peux tester

Code:

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

 

Vote positif 0 Vote négatif

T

tigrou42

XLDnaute Nouveau

• 29 Novembre 2006

• #5

Re : suppression de toutes les images

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

Bonne soirée
@+

 

Vote positif 0 Vote négatif