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

Messages postés
113
Date d'inscription
mercredi 9 mai 2007
Statut
Membre
Dernière intervention
28 août 2007
- - Dernière réponse : taj88
Messages postés
113
Date d'inscription
mercredi 9 mai 2007
Statut
Membre
Dernière intervention
28 août 2007
- 10 juil. 2007 à 11:18
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
46
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 134 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
113
Date d'inscription
mercredi 9 mai 2007
Statut
Membre
Dernière intervention
28 août 2007
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 134 internautes nous ont dit merci ce mois-ci

Commenter la réponse de taj88