Nom d'image insérée

Bonsoir.Voici mon problème::D
Avec l'enregistreur de macro j'ai inséré un image sur ma feuille de calcul

Code:

---

ActiveSheet.Pictures.Insert("C:\DOCUMENTS\Images\photo.jpeg").Select

---

MAIS je voudrais pouvoir récupérer le nom de cette image générée par exel pour pouvoir la faire disparaitre plus tard

Code:

---

1 2	ActiveSheet.Shapes("Picture 1").Select Selection.Delete

---

Dans cet exemple je connais le nom attribué "Picture 1" car j'utilise l'enregistreur de macro.
Mais dans du code à moi je ne connais pas forcement le nom. Plusieurs images pouvant êtres présentes sur la feuille !

il doit bien avoir un truc du type ActiveShape.name :? à placer juste aprés avoir inséré l'image.

Bonsoir,

Essaye ceci :

Code:

---

1 2 3 4 5 6

Dim MonImage As Object   Set MonImage = ActiveSheet.Pictures.Insert("C:\DOCUMENTS\Images\photo.jpeg") MsgBox "Image insérée : " & MonImage.Name   ActiveSheet.Shapes(MonImage.Name).Delete

---

wape

Excellent wape ça marche impec.

mais cela m'interpelle ! :?

si l'image que l'on place sur la feuille est une image copiée sur un autre feuille comment retrouver le nom ?

Code:

---

1 2 3 4 5 6 7

'copie sur feuille 1 ActiveSheet.Shapes("Picture 1").Select Selection.Copy Sheets("Feuil2").Select 'collage sur feuille 2 ActiveSheet.Paste 'quel est donc le nom de cette 2eme image ?

---

L'image que tu viens de coller est la dernière de la collection Shapes. Donc, si tu prends en note son nom tout de suite après le Paste, tu aura une référence pour plus tard.

Code:

---

1 2 3 4 5 6 7 8

'copie sur feuille 1 ActiveSheet.Shapes("Picture 1").Select Selection.Copy Sheets("Feuil2").Select 'collage sur feuille 2 ActiveSheet.Paste 'quel est donc le nom de cette 2eme image ? NomImage = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

---

Merci à wape & Singular

je retiens la solution de Singular
elle me semble plus simple pour la relecture future de mon code.

A+