VBA Code For Insert Image In Excel
Private Sub Worksheet_Change(ByVal Target As Range) Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim imgPath As String Dim imgName As String Dim lookupRange As Range Dim foundValue As Range Dim imgLeft As Double Dim imgTop As Double Dim pic As Picture ' Set the source and target worksheets Set wsSource = ThisWorkbook.Sheets("Sheet2") ' Data sheet Set wsTarget = ThisWorkbook.Sheets("Sheet1") ' Drop-down and image display sheet ' Check if the changed cell is the drop-down cell (D6 in Sheet1) If Not Intersect(Target, wsTarget.Range("D6")) Is Nothing Then ' Clear existing pictures in the target sheet For Each pic In wsTarget.Pictures pic.Delete Next pic ...
