Ağ Üzerinde Bulunan Bir Klasörden Userform 'a Resim Ekleme Hk.

[HsNKgL]

S.A.

Öncelikle yardımlarınız için şimdiden teşekkür ederim. Aşağıda bulunanan kodla userforma TextBox yazılan veri karşılığında resmi getirebiliyorum, ancak sorunum şu excel dosyası ile resimlerin bulunduğu klasör aynı yerde olmak zorunda biraz deneme ve araştırma yaptım ancak sonuca ulaşamadım. Yapmak istesiğim excel sayfası nerede olursa olsun \\192.168.1.22\Resimler klasöründen resimleri getirmesi konusunda yardımlarınızı bekliyorum...

Private Sub ComboBox1_Change()

  For i = 1 To Sheets("Excel").Range("a65536").End(3).Row
    If ComboBox1.Text = Sheets("PRAPOR").Range("A" & i).Text Then
TextBox1.Value = Sheets("PRAPOR").Range("B" & i).Text
TextBox2.Value = Sheets("PRAPOR").Range("C" & i).Text
End If
  Next i

resimx = ThisWorkbook.Path & "\Resimler\" & TextBox2.Text & ".jpg"
    If Dir$(resimler) = "" Then
        resimyok = ThisWorkbook.Path & "\Resimler\" & "nan.jpg"
        Image1.Picture = LoadPicture(resimyok)
        Else
        Image1.Picture = LoadPicture(resimx)
       End If
End Sub

 

[Cengiz Demir]

ThisWorkbook.Path ile çalışan dosyanın yol bilgisi alınıyor.
Onun yerine "\\192.168.1.22" yazarsanız olur sanırım..

Örn..
resimx = "\\192.168.1.22" & "\Resimler\" & TextBox2.Text & ".jpg"

 

[HsNKgL]

ThisWorkbook.Path ile çalışan dosyanın yol bilgisi alınıyor.
Onun yerine "\\192.168.1.22" yazarsanız olur sanırım..

Örn..
resimx = "\\192.168.1.22" & "\Resimler\" & TextBox2.Text & ".jpg"

Teşekkür ederim...

 

[Cengiz Demir]

Rica ederim

 

[mustilem23]

Sayın
HsNKgL dosyanızı paylaşıma açabilir misiniz bir benzeri işlem için uğraşıyorum yardımcı olabilir misiniz.

 

[HsNKgL]

Sayın
HsNKgL dosyanızı paylaşıma açabilir misiniz bir benzeri işlem için uğraşıyorum yardımcı olabilir misiniz.