EXCEL Insérer une image ds la cellule active

Résolu
Modia -  
massimo888 Messages postés 209 Statut Membre -
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

  1.
    lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
     
    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
    1. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
       
      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
    2. massimo888 Messages postés 209 Statut Membre
       
      Bonjour,
      Et si on veut copier une image d'un autre classeur EXCEL excel et la coller sur un deuxième?
      Merci
      0

Discussions similaires

Excel - macro (mise en forme conditionnelle)
chewi -
khawla -

10 réponses
Erreur d'éxecution 1004
Damien -
Leclaudefranc -

14 réponses
[Vba-excel] suppression de la ligne active
malicia626 -
malicia626 -

2 réponses
avec Excel, vérifier l'existance d'une feuill
tacotac -
DiDi -

21 réponses
somme sous condition de couleur de cellule
scouab -
ihsen -

9 réponses
obliger à remplir une cellule EXCEL
lie -
fanchmat -

6 réponses