resim getirme hata

[enegen]

Saygıdeğer arkadaşlar
Bir resim getirme olayım var önceden kullandığım bir dosyada ki makroyu yeni projeme uyguluyorum. her şey aynı olmasına rağmen makro run ile çalışıyor fakat sayfada çalışmıyor.
Sub RESİMLERİBUL()
On Error Resume Next
resim = Sheets("Fine_Kinney Formu").[R2].Value
yol = ActiveWorkbook.Path
Worksheets("Fine_Kinney Formu").Image1.Picture = LoadPicture(yol & "\resimler\" & resim & ".jpg")
End Sub
anlam veremedim. bilgisayar aynı office 2010

 

[enegen]

Arkadaşlar
Kod sayfasındayken kodu çalıştırınca resim değişiyor. Sayfaya geçince değişmiyor.
Aynı kodu başka bir yerden aldım orada tıkır tıkır çalışıyor.
Acaba kod sayfasındaki bir ayarla mı ilgili.

 

[Korhan Ayhan]

Kodu sayfaya nasil uyguladiniz?

 

[halit3]

Kod ile ilgili aşağıdaki kırmızı yeri bir ekleyin bakalım ne sonuç verecek.

Sub RESİMLERİBUL()
On Error Resume Next
Resim = Sheets("Fine_Kinney Formu").[R2].Value
yol = ActiveWorkbook.Path
[COLOR="Red"]Worksheets("Fine_Kinney Formu").Image1.Picture = LoadPicture(None)[/COLOR]
Worksheets("Fine_Kinney Formu").Image1.Picture = LoadPicture(yol & "\resimler\" & Resim & ".jpg")
End Sub

 

[enegen]

Olmadı halit bey.
Korhan bey sorunuzu anlamadım. ama sayfada başka kodlar da var onlar çalışıyor.
Kod sayfasındayken (Run) basınca çalışma sayfasında resimler değişiyor.
Çalışma sayfasına geçince çalışmıyor. Peki resim getirmenin başka bir yolu var mı.