useform image kutusuna resim ekleme

[kalibre101]

merhaba çalışma kitabımda anaform adında useform var içinde image1 adında image kutusu var ,anaformliste adında combobox var
combobox ta yazılı isimle aynı isimde olan resim dosyasını image kutusuna eklemek istiyorum
combobox değiştikce resimde değişecek resimyolu ActiveWorkbook.Path çalışma kitabıyla aynı konumda
kod konusunda yardımcı olursanız sevinirim

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Private Sub anaformliste_Change()
resim = ThisWorkbook.Path & "\" & anaformliste.Text & ".jpg"
If Dir(resim) = "" Then
    Image1.Picture = LoadPicture()
Else
    Image1.Picture = LoadPicture(resim)
End If
End Sub

 

[kalibre101]

Merhaba,
Deneyiniz...

Private Sub anaformliste_Change()
resim = ThisWorkbook.Path & "\" & anaformliste.Text & ".jpg"
If Dir(resim) = "" Then
    Image1.Picture = LoadPicture()
Else
    Image1.Picture = LoadPicture(resim)
End If
End Sub

Teşekkürler oldu