Insertion d'image

Résolu
juer31 Messages postés 120 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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

  1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    Voilà un exemple:

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