อยากให้ แสดงรูป ตามชื่อที่กำหนดได้มัยครับ....

[jakkrit8015]

เรียนอาจารย์และสมาชิกทุกท่านครับ
จากCODE ก่อนหน้านี้ ในไฟล์ตัวอย่างทดลองแล้วผ่านใช้งานได้ แต่พอนำ CODE มาใส่งานจริง ทำไมรูปถึงไม่แสดงเหมือนไฟล์ตัวอย่างครับ หรือ ต้องตั้งค่าอะไรเพิ่มเติมสำหรับไฟล์ .xlsm หรือไม่ครับ
รบกวนผู้รู้ช่วยชี้แนะด้วยครับ

[puriwutpokin]

ลองปรับตามนี้ดูครับ

Code: Select all

Sub ShowPicture()
Dim r As Range
Dim obj As Object
Dim imgIcon As Object
Dim s As Shape
On Error Resume Next
With Worksheets("สารบัญ")
    Set r = .Range("y1")
 End With
    For Each s In ActiveSheet.Shapes
        If Intersect(r, s.TopLeftCell) Is Nothing Then
        Else
            s.Delete
        End If
    Next s
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="D:\2020\" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=r.Left + 1.5, Top:=r.Top + 1.5, _
    Width:=r.Width + 61, Height:=r.Height + 82)
End Sub

[jakkrit8015]

อันนี้เอาไปใส่งานจริง ใช้ได้จริงเลยครับ
ไฟล์แสดงข้อมูลพนักงานของผมสมบูรณ์แบบแล้ว
ขอบคุณ puriwutpokin มากๆครับ