Resim dosya yolu doğru ise

[vivident]

Merhaba

Excel sheetinde bulunan image dosyadan resim yüklüyorum. Benim istediğim resmi bulamaz ise 00000.jpg resmi yüklemesi, ama dosya yolu kontrolü sağlatamıyorum. İncelemeniz mümkünmüdür. Dosya eklemedim

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Alan As Range
Dim ResimDosyaYolu As String

If Intersect(Target, Range("E2:E3")) Is Nothing Then Exit Sub

ResimDosyaYolu = "I:\arsiv_foto\" & Sheets("Hesaplama").Range("CC23") & ".JPG"
If ResimDosyaYolu = True Then
Image1.Picture = LoadPicture("I:\arsiv_foto\" & Sheets("Hesaplama").Range("CC23") & ".JPG")
Else
Image1.Picture = LoadPicture("I:\arsiv_foto\00000.JPG")

End If
End sub

 

[Orion1]

İlgigi satırı aşağıdaki ile değiştirip deneyiniz.

If Dir(ResimDosyaYolu) <> "" Then

 

[vivident]

teşekkür ederim

 

[vivident]

Sayın Orion müsaitseniz bir şey daha sormak istiyorum
imagelara yüklenen resimler image üzerinde kalıyor
" & Sheets("Hesaplama").Range("CC23") & ".JPG" bu kısımda resmin ismi değişiyor. Yeni resmi klasörden bulup yeniden imagelara yüklemesi lazım, fakat eski resim silinmediği için yüklemiyorum. Hangi kod ile sileceğiz

ben Image1.Picture = LoadPicture("") bu kodu kullandım ama olmadı

 

[Orion1]

CC23 teki bulunan dosya ismini değiştirmeniz lazım.

 

[vivident]

CC23 değişiyor. Farklı bir isim geliyor

 

[Orion1]

Göstermesi lazım.Başkacada aklıma gelen bir şey gelmedi.
E2:E3 e bir değer girdiğinizde kod tetikleniyor.Onlara veri yazmanız lazım.

 

[vivident]

Sayın Orion hiçbirşey yapmadım, nasıl oldu bende bilmiyorum, ama normale döndü. Fotoğraflar yükleniyor, hücredeki resim ismi değişence yeni fotoğraflar yükleniyor. İlginç

Teşekkür ederim

 

[Orion1]

Rica ederim.
İyi çalışmalar.