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

Réponse 1 / 3
lami20j Messages postés 21644 Statut Modérateur, Contributeur sécurité 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 21644 Statut Modérateur, Contributeur sécurité 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 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