Insertion d'image

Résolu/Fermé
Signaler
Messages postés
98
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
28 mai 2019
-
Messages postés
7648
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 janvier 2022
-
Bonjour,

j'ai trouver ce code pour l'insertion d'image mais au lieu de mettre l'image dans la cellule active j'aimerais le mettre dans une cellule précise

Sub pos_img()

ActiveSheet.Pictures.Insert("C:\image.jpg").Select

With Selection.ShapeRange
.Left = ActiveCell.Left
.Top = ActiveCell.Top
End With

End Sub

Merci

1 réponse

Messages postés
7648
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 janvier 2022
675
Bonjour,

Voilà un exemple:

http://www.cjoint.com/c/GAlpFD8L7KQ
0