Sayfaya Resim Ekleme

[DeliBalta58]

Arkadaşlar dosyalar silinmeden önce birçok örnek vardı. Maalesef silinmiş.

Sayfaya eklediğim bir buton ile Image1 ekledim ve aynı klasör içinde bulunan logo.jpeg isimli resmin buraya eklenmesi ve başka bir buton ile silinmesi gerekmekte.
Kodlarım hata verdi. Yardımcı olabilirmisiniz acaba.

Sub resim_ekle()
       ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
        DisplayAsIcon:=False, Left:=48.75, Top:=12.75, Width:=66.75, Height:= _
        90.75).Select
    Range("A1").Select
grafik.Chart.Export ThisWorkbook.Path & "\logo.jpg"
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\logo.jpg")
End Sub

Dosya ekte

 

[ozgretmen]

Dosya ekte.Böyle bir şey işinize yarar mı ? İyi çalışmalar.

 

[DeliBalta58]

teşekkürler

 

[mustafakoker]

hocam teşekkürler