Airone784
XLDnaute Occasionnel
Bonjour à tous,
Savez vous pourquoi avec ce code, je n'arrive pas à obtenir ce que je veux. Le cadre image est crée mais l'image ne se charge pas.
Merci pour votre aide
A bientot
Savez vous pourquoi avec ce code, je n'arrive pas à obtenir ce que je veux. Le cadre image est crée mais l'image ne se charge pas.
Code:
Sub zzz()
Dim Obj As OLEObject
Set Obj = ActiveSheet.OLEObjects.Add("forms.image.1")
With Obj
.Top = 140
.Left = 360
.Name = "NomLabel"
.Width = 60
.Height = 40
.Picture = LoadPicture("T:\M.ALPINI\FI.jpg")
End With
End Sub
Merci pour votre aide
A bientot