Signaler Afficher les images dans Excel

Bonjour,

Je possède un fichier Excel assez volumineux dans lequel j'ai des enregistrements contenant des URL d'images sur Internet.

Je souhaite afficher les images correspondant aux URL dans les cellules d'Excel sur chaque enregistrement contenant une URL.

Merci pour votre aide.

Bonjour,

Peux-tu joindre un fichier avec quelques lignes de ton fichier pour t'activer ce petit code ou l'adapter .

Sub Test()

Dim Lien As String
Dim Photo As Shape
'pour les visiteur: on selectionne l'image sur le web puis clique droit souri et propriété pour copier le lien et le collé sur excel
Lien = "http://impfr.tradedoubler.com/imp?type(img)g(17066650)a(1070866)495640126"

'on crée un rectange avec largeur et hauteur spécifiques pour le faire apparaite comme il faut sur une cellule sur excel
Set Photo = SH1.Shapes.AddShape(msoShapeRectangle, 10, 10, 40, 10)

'on affecte le lien au rectangle
Photo.Fill.UserPicture Lien

'les codes suivants sont assez explicites les experts peuvent te l'améliorer si besoin
Photo.Select
Selection.Cut

SH1.Cells(8, 2).PasteSpecial

SH1.Cells(8, 2).Select

End Sub

Au plaisir de te lire

Amitié

Air2

Bonsoir,

Merci pour ton aide précieuse, tu trouveras le fichiers excel sur

Laurent

Bonsoir,

Tu trouveras dans ton fichier un bouton a activer.

Si tu ajoutes des liens il te faudra effacer les images et relancer le bouton.

Comment vois tu les ajouts ?

A te relire

Air_2

Salut,

Désolé, mais ça ne fonctionne pas, il me donne une erreur d'exécution.

La méthode "UserPicture" de l'objet "FillFormat" a échoué.

Regarde la pièce jointe.

Merci.

Chez moi ça fonctionne bien !

A+

Bonsoir,

Peux tu faire les manipulations figurant dans le fichier joint et voir si tu as les mêmes lignes cochées ?

A très vite

Air_2