Snasui Excel Forum

Code: Select all

Sub ShowPicture()
Dim r As String
Dim imgIcon As Image

On Error Resume Next
If Left(ActiveSheet.Shapes(1).Name, 3) = "Pic" Then
    ActiveSheet.Shapes(1).Delete
End If
r = Range("e3").Value

With Range("l3")
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="C:\DL\" & r & ".jpg", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
   Width:=120, Height:=150)
End With
Set imgIcon = Nothing

End Sub