Dosya ve uzantı arama ( Userform Picture)

[Excelexcellent]

Merhaba,
Aşağıda görülen kodlar ile Userform'a PC de kayıtlı resimlerden seçtiğim görüntüyü alıyorum. Ancak dosyayı farklı bir PC de açtığım zaman hata alıyorum. Sayfa1 "C1" hücresine yazılan yol-dosya-uzantı , PC de aranıp eğer yoksa dosya orjinalinde yüklenen resimin useformda görünmesini sağlayacak bir kod ile bu sorunu çözmeye çalışıyorum veya bu işlem için alternatif bir kod olabilir mi ?
Bu konuda bilgisi olan arkadaşlarımızın yardımlarını bekliyorum.
Teşekkürler.

Private Sub CommandButton1_Click()
ChDir ("C:\")
dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.jpg", _
Title:=" RESİM SEÇİMİ YAPINIZ ")
If dosya = False Then
Exit Sub
Else
Userform1.Picture = LoadPicture("")
Worksheets("sayfa1").Range("c1").Value = yol & dosya & uzanti
Userform1.Picture = LoadPicture(yol & dosya & uzanti)
End If
End Sub
Private Sub UserForm_Activate()
If Sheets("sayfa1").Range("C1") = "" Then
Userform1.Picture = Picture
Else
Userform1.Picture = LoadPicture("")
Userform1.Picture = LoadPicture(Sheets("Sayfa1").Range("C1"))
End If
End Sub

 

[Levent Menteşoğlu]

Dosyanın orijinalinde bulunan resim nasıl yüklenecektir. Bir butonlamı seçim yapılacaktır. Ben size bir dosya kontrol kodu veriyorum bunuda kendi kodlarınız içinde kullanabilirsiniz.

Set nesne = CreateObject("Scripting.FileSystemObject")
resim = nesne.FileExists(Sheets("sayfa1").Range("C1"))
If resim = True Then
MsgBox "Bu isimde bir dosya var"
Else
MsgBox "Bu isimde bir dosya yok"
End If