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.