Snasui Excel Forum

สวัสดีครับอาจารย์ ผมรบกวนอาจารย์ช่วยดู การดึงภาพมาใส่ในเซลล์แบบนี้ด้วยครับ ให้ภาพมาแสดงในเซลล์ที่ต้องการครับ 1 คน มี 4 ภาพ ครับ อาจเป็นภาพชุดที่ 1 เป็น 1 โฟลเดอร์ หรือว่ายังไงก็ได้ครับ:( ขอบคุณมากครับ

การดึงภาพมาใส่ในเซลล์ต้องใช้ VBA ซึ่งต้องเขียนมาก่อนเสมอ ติดขัดตรงไหนก็ถามมาได้เรื่อย ๆ ครับ

ลองทำตามรูปแบบที่อาจารย์เคยทำไว้ครับ แต่ไม่เกิดอะไรขึ้นครับ
ผมเอาไฟล์ไว้ที่ E:\fittest\pict ครับ ไม่ทราบว่าจะต้องแก้ code ตรงไหนอีกครับ

Sub ShowPicture()
Dim r As Range, ra As Range
Dim imgIcon As Object
Dim obj As Object
On Error Resume Next
With Worksheets("Picture")
Set ra = .Range("E2", .Range("F65536").End(xlUp).Offset(0, 1))
End With
For Each obj In ActiveSheet.Shapes
If Left(obj.Name, 4) = "Pict" Then
obj.Delete
End If
Next obj
For Each r In ra
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="E:\fittest\pict" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
Width:=r.Width, Height:=r.Height)
Next r
End Sub

หลักการทำงานของ Code นั้นต้องระบุชื่อรูปไว้ในเซลล์ แล้วใช้โปรแกรมไปอ่านค่าเพื่อดึงรูปมาวางในเซลล์ จากภาพที่แนบมาแสดงว่าแต่ละบรรทัดต้องใช้ 4 ภาพ นั่นคือ ในบรรทัดนั้นจะต้องมี 4 ชื่อ

ที่บอกว่าไม่เกิดอะไรขึ้นนั้นได้ทำอย่างไรไปบ้างครับ ลองแนบไฟล์พร้อม Code ที่ทดสอบแล้วมาด้วย เพื่อนสมาชิกจะได้ช่วยกันทดสอบได้ครับ