Inserer image dans user

[BRUNO62]

Bonjour,

J'ai besoin d'aide, à partir d'un fichier récupéré sur le site.
Je désire que les images soient stockés en feuille 2 et mon application se fait en feuille 1

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
f = Sheets("Feuil2") & "\IMAGE 8211.jpg"
With Sheets("Feuil2")
L = .Shapes("IMAGE 8211").Width
H = .Shapes("IMAGE 8211").Height
Set cht = .ChartObjects.Add(0, 0, L, H)
.Shapes("IMAGE 8211").Copy
With cht.Chart
.Paste
.Export f, "jpg"
End With
cht.Delete
End With
Image1.Picture = LoadPicture(f)


End Sub




Avez vous une idée ?
A+ Bon dimanche

 

[kjin]

Re : Inserer image dans user

Bonsoir,
Je connais le fichier en question...un lien vers ce fil eut été bienvenu !
Je ne vois pas de rapport avec ta question, qui de fait pourrait être explicitée
A+
kjin

 

[BRUNO62]

Re : Inserer image dans user

Bonsoir kjin,

J'ai corrigé mon erreur, il s'agissait de la dénomination des "images"
Cela fonctionne correctement
Encore merci
A+