Supprimer image dans cellule

[PEPIN64]

Bonjour à tous,

Je cherche comment supprimer une image que j'ai placé dans une cellule.
J'arrive à supprimer toutes les images de la Worksheets avec le code suivant :
For Each Sh In Worksheets("Images").Shapes
Sh.Delete
mais je ne sais pas comment supprimer une ou des images se trouvant dans une cellule.
Merci de votre aide

 

[kjin]

Re : Supprimer image dans cellule

bonsoir PEPIN64, le forum
Pour supprimmer toutes les formes:
Dim i As Byte
For i = 1 To Shapes.Count
Sheets("image").Shapes(i).Delete
Next
A+
kjin

 

[Staple1600]

Re : Supprimer image dans cellule

Bonsoir



Pour supprimer tous les formes (bis)

ActiveSheets.Shapes.SelectAll.Delete

Pour supprimer l'image en A1 (de la feuille 1)

sub test()
Dim Sh As Shape
With Worksheets(1)
   For Each Sh In .Shapes
       If Not Application.Intersect(Sh.TopLeftCell, .Range("A1")) Is Nothing Then
         Sh.Delete
       End If
    Next Sh
End With
end sub

PS: il doit y avoir plus simple

edit : bonsoir skoobi, quand je disais qu'il y avait plus simple 😉

 

[skoobi]

Re : Supprimer image dans cellule

Bonsoir kjin, Pepin64,

kjin, pepin64 veux supprimer les images d'une cellule.
Pepin64, utilise la propriété "address" de l'objet shape pour trouver la cellule lié à l'image comme ceci:

 ActiveSheet.Shapes(1).TopLeftCell.Address

Si tu veux supprimer l'image (ou les images) de la cellule A1, ça donne:

For Each Sh In Worksheets("Images").Shapes
    If Sh.TopLeftCell.Address = Range("A1").Address Then
        Sh.Delete
    End If
Next

Edit: bonsoir Jean-MArie 🙂

 

[kjin]

Re : Supprimer image dans cellule

Re, bonsoir Staple1600, skoobi,
Mil excuses, je m'en suis rendu compte mais trop tard.
Faut que j'apprenne à lire.
A+
kjin

 

[wilfried_42]

Re : Supprimer image dans cellule

bonjour à tous

As tu nommé tes images ?, sinon, ca va etre compliqué, le nom automatique qui est donné à l'image est mis en place en fonction de l'ordre de création

sinon, il faut en fonction de la cellule,
faire la somme de la largeur de toutes les colonnes precedentes
faire la somme de la somme precedent + la largeur de la colonne de la cellule

Faire la somme de la hauteur de toute les lignes precedentes
faire la somme de la somme precedente + la hauteur de la ligne de la cellule

ensuite : explorer toutes les images,
si le Top est compris entre somme hauteur 1 et somme hauteur 2 et que
le left et compris end somme largeur 1 et somme largeur 2 alors c'est la bonne image et tu peux la supprimer


Edit : Je suis rudement en retard mais pas grave, j'ai appris quelquechose : Merci skoobi

 

[PEPIN64]

Re : Supprimer image dans cellule

Bonjour à tous,

Merci pour votre aide et pour la rapidité des réponses.