EXCEL Insérer une image ds la cellule active

Résolu
Modia -  
massimo888 Messages postés 203 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je me suis remis à VBA dans Excel depuis peu et mes notions reviennent peu à peu...

J'ai une image à insérer dans une cellule.
Je souhaite, par l'intermédiaire d'une macro, que l'image en question se positionne exactement à l'endroit de la cellule active (en haut à gauche).

Remarque: en effet, lorsque l'on colle une image sous excel, sa position dépend de sa position source (où on l'a copiée).

J'ai cherché la propriété qui peut faire ça mais en vain...

Cordialement

Modia

3 réponses

lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

essaie comme ça
Sub pos_img()

    ActiveSheet.Pictures.Insert("C:\image.jpg").Select
             
    With Selection
        .ShapeRange.Left = ActiveCell.Left
        .ShapeRange.Top = ActiveCell.Top
    End With
    
End Sub
lami20j
7
lami20j Messages postés 21331 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Pour alleger le code ;)
Sub pos_img()

    ActiveSheet.Pictures.Insert("C:\image.jpg").Select
             
    With Selection.ShapeRange
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
    End With
    
End Sub
lami20j
0
massimo888 Messages postés 203 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Et si on veut copier une image d'un autre classeur EXCEL excel et la coller sur un deuxième?
Merci
0