excel insertion image par vba Fermé

Question

Bonjour,
Je voudrais insérer une image dans excel en F2 par macro en sachant que les images sont situées à "C:\Documents and Settings\hdj_se\Bureau\PHOTOS  et que le choix du noms de l'image  se trouve en J2.
Merci de votre aide

gbinforme · Answer

bonjour

Tu peux procéder ainsi :
With Range("F2")
    ActiveSheet.Shapes.AddPicture "C:\Documents and Settings\hdj_se\Bureau\PHOTOS\" & [J2].Value, True, True, .Left, .Top, .Width, .Height
End With

L'image aura la position et la taille de ta cellule.

michel_m · Answer

Bonsoir Kanidou, coucou gbinforme

En complément de l'ami Gbinforme
https://www.cjoint.com/?jwwSEdCYnT

Mike-31 · Answer

Salut tout le monde

Je mets mon petit grain de sel avec un exemple, pour kadinou, mettre le fichier photos contenu dans le zip sur le bureau, pour les autres revoir le chemin d’accès "C:\Documents and Settings\hdj_se\Bureau\PHOTOS "

https://www.cjoint.com/?jxkyT34DT1

Salut Michel_m, si je peux me permettre, dans ton code, lorsque tu cliques sur la feuille la photo disparaît, à mon sens il faudrait mettre une priorité sur A3 ou rajouter une ligne pour sortir de la procédure

Else
If ActiveCell <> [A3] Then Exit Sub 'évite effacement
    ActiveSheet.Shapes("cartepost").Delete

Bonne journée à tous

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Excel insertion image par vba

3 réponses