قست دارم در قسمتی از فایلم تصاویری به صورت رندوم به نمایش در آید که با کمک اساتید عزیز به این کد رسیدم
Private Sub Image1_Click()
Private Sub Worksheet_Change(ByVal Target As Range)
Image1.Picture = LoadPicture(Application.ThisWorkbook.Path & "\pic\" & Sheet1.Range("B2").Value & ".jpg")
Image1.Left = 100
End Sub
راه حل چیست

