Effacer les images dans une feuille excel [Résolu]

Signaler
Messages postés
113
Date d'inscription
mercredi 9 mai 2007
Statut
Membre
Dernière intervention
28 août 2007
-
Messages postés
113
Date d'inscription
mercredi 9 mai 2007
Statut
Membre
Dernière intervention
28 août 2007
-
Comment peut on effacer automatiquement, les images se touvant dans une feuille excel

j'ai essayer un truc du  genre

For Each X In ActiveSheet.msoPicture
  
       Call X.Delete

mai msoPicture ne doit pas être le bon terme

si quelqu'un a une idée?

Je viens de découvrir le bonheur de programmer et le VB me le rend bien

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
56
Salut,
Essaie peu etre

Dim P As Object
   For Each P In ActiveSheet.Pictures
       If TypeOf P Is Picture Then Call P.Delete
   Next , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
113
Date d'inscription
mercredi 9 mai 2007
Statut
Membre
Dernière intervention
28 août 2007

Bon bah j'ai trouvé ...

Sub efface()
    Dim img As Object
       
    For Each img In Worksheets(1).Shapes
     img.Delete
    Next
   
End Sub

Je viens de découvrir le bonheur de programmer et le VB me le rend bien