EXCEL Insérer une image ds la cellule active

Résolu
Modia -  
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 Modérateur
    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 Modérateur
      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
      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

10 réponses
Erreur d'éxecution 1004
Damien

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

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

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

9 réponses
obliger à remplir une cellule EXCEL
lie

6 réponses