ฟอรัม Excel, VBA และอื่นๆ ของคนไทยเพื่อประโยชน์ของทุกคนในจักรวาล (Forum Excel, VBA and others of Thai people for everyone in the universe.)
http://snasui.com/
ผมลองเขียน VBA เกี่ยวกับการ Insert ภาพตามไฟล์แนบ ลองทดสอบการใช้งานดูครับsnasui wrote:ช่วยส่งตัวอย่างคำตอบที่ต้องการมาด้วยครับ
Code: Select all
Sub ShowPicture()
Dim r As Range, ra As Range
Dim imgIcon As Object
Dim obj As Object
On Error Resume Next
With Worksheets("Sheet1")
Set ra = .Range("G4", .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:="D:\" & 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 SubCode: Select all
With Worksheets("Sheet1")
Set ra = .Range("G4", .Range("F65536").End(xlUp).Offset(0, 1))
End WithCode: Select all
With Worksheets("Sheet1")
Set ra = .Range("C4", .Range("F65536").End(xlUp).Offset(0, 1))
End WithCode: Select all
For Each r In ra
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="D:\" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
Width:=r.Width, Height:=r.Height)
Next rCode: Select all
For Each r In ra
Set imgIcon = ActiveSheet.Shapes.AddPicture( _
Filename:="C:\Documents and Settings\supitsara.p\My Documents\My Pictures\" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _
Width:=r.Width, Height:=r.Height)
Next rในไฟล์แนบที่ส่งมาล่าสุด ใส่ Code มาแล้วแต่ไม่ครบครับ Code ที่แนบมานั้นไม่สามารถ Run ได้ ให้ดู Code ทั้งหมดจากจากที่ผมตอบไว้ด้านบนหรือในไฟล์เก่าว่ามี Code อะไรบ้าง และปรับ Code ตามที่ผมบอกไปในความเห็นก่อนหน้า นามสกุลไฟล์ต้องเป็น .xlsm หรือ .xls และต้องไม่เป็น .xlsx ครับwidtara wrote:อยากให้แสดงภาพที่ c4
ใส code ที่บอกแล้วจะต้องทำยังงัยให้ภาพแสดงค่ะ
ไฟล์จำเป็นต้องเป็น.xlsm ไหมค่ะ
หรือว่าเป็นไฟล์ .xls หรือ .xlsx จะได้ไหมค่ะ
งดใช้ภาษาแชท (คำว่าคับ) ในฟอรัม สำหรับที่ถามมานั้น ดูวิธีการเปลี่ยนจากความเห็นนี้ครับ 
snasui wrote:
จากเป็นCode: Select all
For Each r In ra Set imgIcon = ActiveSheet.Shapes.AddPicture( _ Filename:="D:\" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, _ SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _ Width:=r.Width, Height:=r.Height) Next rCode: Select all
For Each r In ra Set imgIcon = ActiveSheet.Shapes.AddPicture( _ Filename:="C:\Documents and Settings\supitsara.p\My Documents\My Pictures\" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, _ SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, _ Width:=r.Width, Height:=r.Height) Next r
เขียนด้วยสูตรธรรมดาดูแล้วเป็นเรื่องยากที่จะนำรูปมาแสดงได้เป็นชุด ๆ ครับ
แนบไฟล์ที่เขียนแล้วยังติดปัญหามาด้วยครับ จะได้ช่วยทดสอบ ปกติการอ้างถึงเซลล์แรกของเซลล์ที่ Merge ตามตัวอย่างเซลล์ที่ถามมา จะอ้างตามด้านล่างครับ
Code: Select all
Range("A1:A3").Range("A1")