Insérer image dans un contrôle image en VBA

[joums]

Bonjour,

Je souhaite insérer automatiquement une image dans un contrôle image qui se trouve dans ma feuille.
Voici le code que j'utilise mais il ne fonctionne pas ?

 ActiveSheet.Shapes("Image1").Select
   Image1.Picture = LoadPicture("F:\T.gif")

Merci de votre aide

 

[kjin]

Re : Insérer image dans un contrôle image en VBA

Bonsoir,

Dim Img As Object
Set Img = ActiveSheet.OLEObjects("Image 1").Object
Img.Picture = LoadPicture("F:\T.gif")

A+
kjin

 

[néné06]

Re : Insérer image dans un contrôle image en VBA

bonsoir Joums

Regardes ce petit prog,
Tu trouveras peut etre les reponses
Créer un dossier "dossierphotos" avec image JPG.
placer les noms de photos en col A

Cordialement

 

[BOISGONTIER]

Re : Insérer image dans un contrôle image en VBA

Bonsoir,

ActiveSheet.Image1.Picture = LoadPicture("c:\mesdoc\droc.jpg")
Sheets(1).Image1.Picture = LoadPicture("c:\mesdoc\droc.jpg")

JB

 

[joums]

Re : Insérer image dans un contrôle image en VBA

Bonsoir, merci pour vos réponses,

effectivement celle de Boisgontier correspond le mieux car il s'agit d'un contrôle image et non d'un objet

Encore merci
Bonne soirée