Discussion :

[sebcah]

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

Code :

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

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 !

[aalex_38]

Bonjour,

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

[sebcah]

Celle de "FONCTION PREVENTIVE" ^^

[jfontaine]

Bonjour,

je n'ai pas trouvé plus court

Code :

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

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

[aalex_38]

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

Code :

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

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

[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... ?

[jfontaine]

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 :

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

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

[F_Gressier]

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 :

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

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

du coup,

Code :

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

Selection.Name="toto"

fonctionne.

Ensuite:

Code :

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

ActiveSheet.Pictures("Toto").Delete

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