Pages

XL 2010 Contrôle Image dans Userform sujet

mercredi 29 janvier 2014




Bonjour,

A ce jour je charge des images stockées dans un répertoire dans mon contrôle Image via le code...

Code :


Private Sub lstPlaques_Click()
    NomImg = Me.lstPlaques.Column(1, Me.lstPlaques.ListIndex)
    Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Plaques\" & NomImg & ".jpg")
End Sub


Cela fonctionne correctement.
Pour éviter de transmettre mes images avec le fichier Excel j'ai inséré ces mêmes images dans une feuille Excel et je voudrais les charger dans mon contrôle Images.
Dans ma feuille elles sont nommées mais la ligne qui me pose des soucis est :

Code :


Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Plaques\" & NomImg & ".jpg")


Que mettre à la place de :

Code :


.....ThisWorkbook.Path & "\Plaques\" & NomImg & ".jpg"


D'avance merci pour votre aide.




Aucun commentaire:

Enregistrer un commentaire