Renommer image excel

Bonjour, j'utilise le code suivant pour copier une image dans excel :

Code:

---

1 2 3

Worksheets("Récap").Range("B1:F20").CopyPicture xlScreen, xlBitmap Worksheets("FONCTION PREVENTIVE").Paste _ Destination:=Worksheets("FONCTION PREVENTIVE").Range("AW1")

---

Je voudrais pouvoir nommer cette image pour pouvoir l'effacer ensuite. Pouvez-vous m'aider svp ^^ ?

Merci ! :ccool:

Bonjour,

Quelle image tu veux supprimer, celle dans recap ou celle dans "FONCTION PREVENTIVE" ?

Celle de "FONCTION PREVENTIVE" ^^

Bonjour,

je n'ai pas trouvé plus court

Code:

---

1 2 3 4 5 6 7 8 9

Dim Sh As Shape   For Each Sh In Worksheets("FONCTION PREVENTIVE").Shapes   If Left(Sh.Name, 7) = "Picture" Then Sh.Name = "Nouveau Nom" End If Next

---

Bon, il y a surement mieux mais voila ce que j'ai pour l'instant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim FL As Worksheet Dim pi As Picture dim NomImage as string   Set FL = Worksheets("FONCTION PREVENTIVE")   NomImage = "Nouveaunom"   For Each pi In FL.Pictures If pi.BottomRightCell = Range("AX1") Then pi.Name = NomImage ' If pi.Name = NomImage Then ' pi.Delete ' End If End If Next

---

Merci ;)

Mais si je veux juste donner un nom à l'image que je viens de copier pour ne pas effacer d'autres images dans le tableau... ?

Utilises la méthode de recherche de ton image que propose aalex_38 => en utilisant l'adresse de la cellule de copie qui se trouve etre celle ou se trouve le coin haut gauche

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Sh As Shape   For Each Sh In Me.Shapes   If Sh.TopLeftCell.Address = "$AW$1" Then Sh.Name = "Nouveau Nom" End If   Next

---

Citation:

---

Envoyé par sebcah

Merci ;)

Mais si je veux juste donner un nom à l'image que je viens de copier pour ne pas effacer d'autres images dans le tableau... ?

---

Quand tu crée une image, elle est sélectionnée:

Code:

---

ActiveSheet.Pictures.Insert("Mon chemin vers toto.jpg").Select

---

du coup,

Code:

---

Selection.Name="toto"

---

fonctionne.

Ensuite:

Code:

---

ActiveSheet.Pictures("Toto").Delete

---

te permet de faire le ménage avant d'en mettre une autre.