Insertion image depuis une cellule

[taratata]

Bonjour,

j'ai une petite image dans une cellule "A1" de la feuille "Config"
Je veux l'insérer dans un objet Image1 du formulaire "Forme1"

si l'image se situe sur HDD alors - ça fonctionne

Me.Controls.Item("Image3").Picture = loadpicture("C:\!TEST!\FaceID\2.jpg")

si depuis la cellule alors - erreur "incomptaible type"

Set WsC = Worksheets("Config")
Me.Controls.Item("Image3").Picture = WsC.Range("A1").Value

après plusieurs écritures, je ne trouve l'issue!

une idée ?

 

[taratata]

j'ai trouvé


- Sur une feuille

0 - Insérer une image - Insertion\Image\img.jpg
Sélectionner l'image
Ctrl C

1 - Insérer un contrôle --> Image(Contrôle ActiveX)
Activer "Mode Création" Onglet "Développeur
Bt. Dtr. Souris Image(Contrôle ActiveX) - Option Propriétés

Spécifier un Nom - Capsule
Picture --> Ctrl V
confirmation par --> (Image bitmap)

2 - Me.Controls.Item("Pic3").Picture = Worksheets("Config").Capsule.Picture

Me.Controls.Item("Pic3").Picture = Worksheets("Config").Capsule.Picture