Enlever des images "en masse"

[Le noob]

Bonjour,

je fais souvent des copier/coller à partir d'Internet et je suis parfois 'contraint' de copier également des petites images (dans ce cas précis des drapeaux, mais bon, ce n'est qu'un détail) ; ce qui fait qu'à chaque ligne de ma feuille Excel se trouve une petite image.

Mon souci vient du fait que je n'arrive pas à les supprimer en supprimant la colonne par exemple. Si je fais cela, les colonnes se décalent, mais les petits drapeaux restent dans la colonne et cela gêne la lecture.

Ce que j'ai fait jusqu'à présent, c'est effacer un par un les drapeaux (clic droit -> couper).

Je voulais savoir s'il existe une façon plus économique de parvenir à mes fins.

Merci de votre aide 🙂

 

[AeroPlanneur]

bonjour Le Noob,

je te propose cette macro toute simple

Sub DeleteAll()
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next
End Sub

Attention, elle est radicale, supprimant tout sur ta feuille, y compris les graphiques ou la photo de belle-maman.
A utiliser avec parcimonie (pas belle-maman) mais la macro.

Cordialement

 

[AV]

Ave,

Un ''vieux truc'' pour supprimer tous les objets d'une feuille sans avoir à boucler sur chacun d'eux :

ActiveSheet.DrawingObjects.Delete

AV [aaa]

 

[Tibo]

Re:Enlever des images \"en masse\"

Salut à tous,

à essayer :

Taper F5
Clique sur Cellules
Cocher Objets
et valider

puis Suppr.


Bonne soirée

@+

Edit : Pour info : je viens d'enregistrer la manip avec l'enregistreur de macro, et ...

ça donne la macro d'Alain.

Voili voilou.

@+

Message édité par: tibo, à: 26/04/2006 19:15