Supp image

[Fab2]

Bonjour,

Je cherche un code pour supprimer toutes les images de ma feuille. J'avais :

For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next

pour supprimer les objets mais ca me supprime mes boutons en même temps, il faut que je les remettent a chaque fois (pas tres pratique !)

Peut-on cibler les images uniquement dans un automatisme de suppression ?

Merci

 

[JPM]

Bonjour à tous,

Tu peux essayer ca:

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

Bonne journée

Jean-Pierre

 

[Fab]

Impec ca marche, MERCI pour le coup de pouce.

@+