Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$O$1" Then
        Call ShowPicture
    End If
End Sub

Code: Select all

Sub ShowPicture()
Dim r As String
Dim imgIcon
On Error Resume Next
    ActiveSheet.Shapes(1).Delete 'ลบรูปเก่า
r = Range("F4").Value
With Range("G4")
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="D:\Pic\" & r & ".jpg", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
    Width:=180, Height:=138)
End With
Set imgIcon = Nothing
End Sub

Code: Select all

'...    
Dim obj As Object
For Each obj In ActiveSheet.Shapes
    If Left(obj.Name, 4) = "Pict" Then
        obj.Delete
    End If
Next obj
'....

Code: Select all

'...
r = Range("I5").Text   'ตำแหน่งใส่ชื่อเรียกมา
If IsError(Range("I5")) Then
    MsgBox "Not found picture"
Else
    With Range("J5")  ' ตำแหน่งที่แสดงรูป
        Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        Filename:="D:\Pic\" & r & ".jpg", LinkToFile:=False, _
        SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
        Width:=180, Height:=138) 'กำหนดให้เริ่มจากซ้าย-บน และกำหนดขนาดกว้าง*สูงของรูปตำแหน่งการเก็บรูปที่ไดร์ฟ D :\ไฟล์ Pic\
    End With
End If
'....