Insérer une image

[Airone784]

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.

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

 

[Airone784]

Re : Insérer une image

Personne pour me sauver de mon ignorance