Discussion :

[Oh!Tofocus]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[wape]

Bonsoir,

Essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Oh!Tofocus]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Singular]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Oh!Tofocus]

Merci à wape & Singular

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

A+