Insertion image avec un nom

Version imprimable

Bonjour,

je voudrais insérer une image à partir d'un fichier mais en renommant celle-ci par "TOTO" par exemple, est-ce possible?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub bouton_titre2_Click()
    Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single
 
    L = Range("c6").Left
    T = Range("c6").Top
    W = Range("c6").Width
    H = Range("c6").Height
 
    Image = ("C:\Users\LOGOS\BIBI.jpg")
 
    If Image <> False Then
        Feuil1.Shapes.AddPicture Image, True, True, L, T, W, H
        'Selection.Name = "TOTO"
 
    End If
End Sub

27/02/2015, 10h58
Kimy_Ire

Bonjour jijie,

La :faq: ne pourrait-elle pas t'aider ? :aie:
Ici, par exemple.

Reviens vers moi pour toute difficulté. :ccool:

Cordialement,
Kimy
27/02/2015, 11h34
Menhir

Tu crées une variable (par exemple nommée MaShape) de type Shape.
Tu mets un "MaShape =" devant le Add introduisant ton image, comme ça, tu conserves le lien vers cette image.
Ensuite, il ne te reste plus qu'à utiliser la propriété Name avec ta variable pour changer le nom de ton image.
27/02/2015, 14h26
jijie

Bonjour à vous deux,

Menhir: Comment je place cette variable devant le Add ? Tu pourrais me donner la ligne? et comment je modifie le nom?

Retenir le nom dans une variable ne m'intéresse pas car si le fichier est fermé entre les deux, je ne pourrais plus supprimer l'image puisque la variable sera = à "" !!

C'est pourquoi quel que soit l'image collé sur la feuille, je voudrais qu'elle porte un nom identique (sur la feuille)!

Merci
27/02/2015, 14h45
Menhir
Citation:

Envoyé par jijie

Comment je place cette variable devant le Add ?

Set MaVariable = ....
Comme pour toute affectation d'un objet à une variable.

Citation:

comment je modifie le nom?

Regarde dans l'aide VBA d'Excel les membres de l'objet Shape et en particulier la propriété Name.

Citation:

Retenir le nom dans une variable ne m'intéresse pas car si le fichier est fermé entre les deux, je ne pourrais plus supprimer l'image puisque la variable sera = à "" !!

Tu veux supprimer l'image ??? C'est nouveau... Jusqu'à présent, tu voulais juste la renommer.
Je ne parle pas de retenir le nom mais de conserver un lien vers l'objet pour ne pas être obligé de le rechercher après l'utilisation de ton Add, histoire de pouvoir changer son nom dans la ligne suivante.

Autre chose qui m'étonne dans ton code : je ne vois pas du tout ce que tu espères obtenir avec :
Code:

1 2 Image = ("C:\Users\LOGOS\BIBI.jpg") If Image <> False Then

Ou directement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim L As Single, T As Single, W As Single, H As Single
Dim Image As String
 
Image = "C:\Users\hp\Pictures\armoiries3.jpg"
 
If Dir(Image) <> "" Then
    With Feuil1
        With .Range("C6")
            L = .Left
            T = .Top
            W = .Width
            H = .Height
        End With
        .Shapes.AddPicture(Image, True, True, L, T, W, H).Name = "TOTO"
    End With
End If

28/02/2015, 15h26
jijie

Et bien oui merci Mercatog , c'est bien ça.
je te rereremercie !!