Supprimer une image dans une cellule (macro).

[Lijh]

En premier lieu, bonjour et très bonne année 2009 à tous.

Mon problème est le suivant; comment peut-on par macro supprimer une image se trouvant dans une cellule connue (MS Excel 2003) ?

Je sais comment supprimer une image dont le nom est connu :

Sheets("Images").Shapes("image150").Select
Selection.Delete

Mais je n'ai pas trouvé le moyen de sélectionner une image se trouvant dans une cellule (par exemple "B2").

Merci par avance.
Laurent.

 

[Pierrot93]

Re : Supprimer une image dans une cellule (macro).

Bonsoir Laurent

essaye peut être comme suit :

Dim s As Shape
For Each s In Feuil1.Shapes
    If s.Type = msoPicture Then If s.TopLeftCell.Address(0, 0) = "B2" Then s.Delete
Next s

bonne soirée
@+

 

[Lijh]

[Résolu] Supprimer une image dans une cellule (macro).

Bonsoir Pierrot93,

Je reste sans voix ! Si simple, mais faut-il le savoir.
Je n'ai eu qu'à intégrer le code, et ça fonctionne de suite.

Merci beaucoup.


Laurent.