Supprimer une image

Résolu/Fermé

Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018 - 3 août 2017 à 18:41
Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018 - 8 août 2017 à 10:30

Bonjour,

Je voudrais supprimer une seule des images présentes sur ma feuille excel svp

Elle est située en D68 de la feuille "Sign"
J'ai bien essayé cela :
Dim img As Object
For Each img In Sheets("Sign").Shapes
img.Delete
Next

Cependant, ca me supprimer évidemment toutes les images de la feuille.
Comment ne supprimer que l'image de la case D68 svp ?

Merci pour votre aide
Tuline

A voir également:

Supprimer une image
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Image iso - Guide
Comment agrandir une image - Guide
Acronis true image - Télécharger - Sauvegarde

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
3 août 2017 à 19:30

Bonjour,

Voir ceci:

http://boisgontierjacques.free.fr/pages_site/lesimages.htm#AdresseCelluleShape

Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018
8 août 2017 à 10:30

Merci beaucoup ! j'avais vu ce post mais je n'avais pas réussi à l'adapter :)

Réponse 2 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
3 août 2017 à 19:39

Bonjour,

Essaies ce code :

Sub test()
Dim shp As Shape
  For Each shp In Sheets("Sign").Shapes
    If shp.Type = msoPicture Then
      If shp.TopLeftCell.Address = "$D$68" Then shp.Delete
    End If
  Next shp
End Sub

Tuline Messages postés 55 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 16 novembre 2018
8 août 2017 à 10:29

Merci beaucoup !
C'est parfait !

Discussions similaires

Comment enlever le rouge sur la photo svp ?

PIX