Excel insertion image par vba
kadinou
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Excel insertion image par vba
- Liste déroulante excel - Guide
- Excel trier par ordre croissant chiffre - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Recherche par image - Guide
3 réponses
bonjour
Tu peux procéder ainsi :
L'image aura la position et la taille de ta cellule.
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.
Bonsoir Kanidou, coucou gbinforme
En complément de l'ami Gbinforme
https://www.cjoint.com/?jwwSEdCYnT
En complément de l'ami Gbinforme
https://www.cjoint.com/?jwwSEdCYnT
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)
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)
