çalışmam klasöründe; 6 resimden oluşan resim klasörü ve  excelde yapılmış dosyam var.

excelde oluşturduğum form üzerinde image1 e resim ekle butonuna basınca resim klasöründe bulunan resimlerden rastgele birinin gelmesini istiyorum.

Dim yol As String
yol = "C:\Users\TOSHBA\Desktop\nimet çalışma\resim\1.ünitemat1.JPEG"

Image1.Picture = LoadPicture(yol)

burada Image1.picture=nothing hatasını alıyorum.

bu konuda yardımcı olursanız memnun olurum

Kodunuzu

Private Sub Bu1_Click()



Dim yol As String

yol = ThisWorkbook.Path & "\resim\1.ünitemat1.JPG"



Image1.Picture = LoadPicture(yol)



End Sub

olarak değiştirin ve dosya isimlerini doğru adlandırın. Klasörünüzdeki resimlerin uzantısı .jpg iken siz .jpeg aratıyorsunuz, netice olmayan şeyi gösteremem diyor.

Teşekkürler